AD-A278  227 


raniniHiittn 

INTERACTIVE 
HIGH  RESOLUTION 
FORCE-ON-FORCE 
MODEL 


MAIN  BATTLE  PROCESSOR 
SOURCE  CODE  LISTING 


DT1C 

ELECTE 
APR  18 1994 

F 


SPC  94-282-1 A 


APRIL  1994 


PREPARED  FOR: 


U.S.  ARMY  TANK  -  AUTOMOTIVE  COMMAND 
ADVANCED  SYSTEMS  CONCEPTS  DIVISION 
WARREN,  MICHIGAN  48397-5000 

CONTRACT  NO.  DAAE07-92-C-R044 


This  document  has  been  approved 
fox  public  release  and  sale;  its 
distribution  is  uniunitea. 


PREPARED  BY: 


STEVEN  M.  BUC 


SYSTEM  PLANNING  CORPORATION 
1500  WILSON  BOULEVARD 
ARLINGTON,  VIRGINIA  22209 

94  4  15  0  42 


REPORT  DOCUMENTATION  PAGE 


form  Approved 
OMB  No  0704-0188 


»uO»  £  -hDOrt'hg  BufO**  thi,  :Otiection  0*  'ntornfBtiOn  v  tttimatta  tc  artrtqt  '  -our  oe»  'ttoontt  -nclyaing  the  lime  for  rev.ew.ng  instructions  tttrcn.no  es  sting  a,:.  sources 
garnering  ana  maintaining  tno  aata  neebeb,  and  ten- Dieting  ana  revem-ng  tnr  collection  Qt  information  ^eng  comments  regarding  this  burden  estimate  O'  an,  other  asoea  or  tn-s 
collection  o'  'ntnrmation.  including  suggestions  tor  reducing  this  ouroen  to  Washington  neadduaners  Services.  Directorate  tor  information  Ooerations  ana  Reoons  tits  lefferson 
Da.'sHianura.  Suite  tJ04  Arlington,  ,4  22202-X302  a«J  to  me  0«ice  o*  Management  ano  8uOget  Paoerwora  Seduction  hroiect  (0704-OtM)  Washington  DC  i05C3 


1.  AGENCY  USE  ONLY  (Leave  blenk)  2.  REPORT  DATE  3.  REPORT  TYPE  AND  DATES  COVERED 

April  1994  Technical  October  1993-March94 


4.  TITLE  ANO  SUBTITLE 

Interactive  High  Resolution  Force-on-Force 
Model  —  Main  Battle  Processor  Source  Code 
Listing 


6.  AUTHOR(S) 


S.  FUNDING  NUMBERS 


Steven  M.  Buc 


7.  PERFORMING  ORGANIZATION  NAME(S)  AND  ADDRESS(ES) 

System  Planning  Corporation 
1500  Wilson  Boulevard 
Arlington,  Virginia  22209 


8.  PERFORMING  ORGANIZATION 
REPORT  NUMBER 


SPC  94-282-1A 


9.  SPONSORING /MONITORING  AGENCY  NAME(S)  ANO  AOORESS(ES) 

U.S.  Army  Tank  -  Automotive  Command 
Advanced  Systems  Concepts  Division 
Warren,  Michigan  48397-5000 


10.  SPONSORING  /  MONITORING 
AGENCY  REPORT  NUMBER 


11.  SUPPLEMENTARY  NOTES 


Contract  No.  DAAE07-92-C-R044 


12a.  DISTRIBUTION  /  AVAILABILITY  STATEMENT 


12b.  DISTRIBUTION  CODE 


Approved  for  public  release;  distribution  is 
unlimited. 


13.  ABSTRACT  (Maximum  200  words) 


This  document  provides  the  source  code  listing  for  the  main  battle 
processor  for  a  unique  personal  computer  based  interactive  force-on- 
force  model.  The  programming  language  used  is  FORTRAN,  and  this  code 
has  been  configured  to  run  on  386+  compatible  personal  computers.  The 
code  is  currently  dimensioned  to  permit  the  operator  to  simulate  armored 
warfare  with  up  to  200  direct  fire  units  on  each  side.  Up  to  10  different 
battlefield  systems  are  permitted  within  these  200  units,  with  each 
system  employing  up  to  different  on-board  weapons. 

(continued  on  following  page.) 


IS.  NUMBER  OF  PAGES 

74 


16.  PRICE  CODE 


14.  SUBJECT  TERMS 

force-on- force  model,  interactive,  personal  computer, 
artillery,  vehicles,  direct  fire,  guided  weapons, 
terrain,  obscurants,  mine  fields,  graphics _ 


17.  SECURITY  CLASSIFICATION  18.  SECURITY  CLASSIFICATION  19.  SECURITY  CLASSIFICATION  20.  LIMITATION  OF  ABSTRACT 
OF  REPORT  OF  THIS  PAGE  OF  ABSTRACT 

Unclassified  Unclassified  Unclassified  Unlimited 


NS\  7540-0- -280-5500 


Standard  f or—  29 

o»o  d,  -*:3 


(Abstract  continued) 


Ten  indirect  fire  support  systems  may  also  be  modeled  to  round  out 
the  combined  arms  team.  Each  artillery  system  may  employ  up  to  5 
different  types  of  ammunition,  to  include  high  explosive,  submunition 
dispensing,  and  guided  munitions.  The  effects  of  terrain  masking  are 
included  through  the  use  of  a  digitized  terrain  board.  Battlefield 
obscurants,  target  detection  probabilities,  and  the  effects  of  moving 
targets  on  weapon  accuracy  are  also  modeled.  Mine  fields  and  other 
obstacles  can  also  be  simulated. 

The  operator  directs  unit  movements  and  fire  orders.  The  code 
operates  with  a  variable  time  step,  which  can  be  set  as  low  as  one  second. 
The  operator  can  interact  with  the  code  operation  every  sixty  cycles. 
Battlefield  activity  is  displayed  as  it  occurs  on  the  graphics  screen.  This 
software  was  developed  in  support  of  studies  and  analyses  of  the 
sequential  mission  duty  cycle/mission  profile  of  a  future  main  battle  tank 
for  the  year  2015.  However,  the  software  is  sufficiently  flexible  to 
permit  the  analysis  of  tradeoffs  involving  many  weapon  systems  and 
subsystems  on  the  modern  battlefield. 


Accesion  For 


UNIT  SPEED  (TRUE).  LOSSES.  AMMO  REMAINING 


C 

c 

c 


WITE  (YVA-COUMANO  PHASE* 
GIVE  ORDERS  AFFECTING: 


UNIT  MOVEMENT 
UNIT  FIRES 
OBSCURANTS 

write  i\r •wme  phase* 

BY  TMg  MC  RE  ME  NT: 

MOVE  UNITS 
SHOOT  UNITS 

WRITE  r.l  ^OUTPUT  PHASE* 

SELECT  OUTPUTS: 

UNIT  STATUS 
LOSSES 

CHRONOLOGY  OF  EVENTS 

WRITE  (*.*)  7 -CHANGE  THE  STEP 

WRITE  (V)  TKHMT 
WRITE  M 

WRITE  (V)  ENTER  PHASE  SELECTION 

WRITE  rA 

RfAg^-iRR.IHP 

ENO 

SUBROUTWE  INPUT 
INPUT  PHASE 
REAO: 

GRO 

CONTOURS 
FORCE  STRUCTURE 
UNIT  MOVEMENT 
WEAPON  SYSTEMS 

COM  MON/GRICYNX.NY, SCALE,  9CF ACT.PRF  ACT.ZF ACT 
^COMkKINgOUR&X^iaO).YI(l  100)JC2(1  100).V2(t  IOO),IC(t  tOR. 

*  ’Smmo^om^Vy.xlen.zfactn.xmax.ymax.yunit 
COMMON/FORCE/8HIER(200),RH£R{200).BUNIT(20CnRUNIT(200|. 

A  «SYS»00^!, «SYS(200 J).L  1  BFL2F.L3F.L  1  RF.Nb.NR 
COMM6NIMOVE^XYA(20to).RXYA(200J).iaSA(  2002). WSA<  300  i). 

A  1 1BMJ  2M.1 3M  L1RM 

CQMM01VMANI:UVER/BXYO(200.2),RXYO(2G0.2).MTYPEB(200).MTYPER(200) 
A  SXYPsm2>JWYP(200^IS^200).ISPl»(20fe 
COMMONIWEAPONSINW:.NRFJFNAME(10).RFNAMEI10).NWS(10 

i 

A  TEMNn(30),ACQB(10,5),ACQR(10.S).SRCHB(10).SRCHR(l0 
A  MILB1 1 0.3KM  ILR(  10,3) 

COMMOMSHOTSEMfi(2004).NSHOTB«003I.NSHOTR(2e».3) 

COM  MON/MODE  S/M  (XjEMB(200).MOOEMR(2C0),TCMMB(200,3). 

A  TCMMlim3).TTMMBf2O0.fi.TTMMRW00i).M6oEFB(20O), 

A  MOOEFR(200).KEWB(2CO),KEWRpOO)J'CFMB( 200.0),  TCF MR (200.01. 

A  TTFMB(200.filjTFMH(200.8).TRMMB(200),TRMFB(2Q0),TRMMR(200). 

A  TRMFFV200).TRD£S8(2(X1,1RD£SR(2001 

COMMON/BATTLE/ITIME.IOTIME.ITGTB(200,2),ITGTR( 200i). 

A  PKTB^02)PKTR(200^).IKIUB(200),IKLLR<200),IAMFl(200), 

COMSto^LEVAICONTramjELEVJIOOOOl 
“  OMMON/PUFFS/IWSPEED.WOW.IDUST.E 


3T.EXPUFF.OTPUFF.TE  NOPUFF, 


COMMON/OBSCUR£/NGREN8(200.2),NGRENR(200.2).I8ESMK(200), 

A  IRESMKI20Q) 

COMMONFTRACK»IGI8OREB(10.3).BOREmi0.3).IRNGB(30A}.tRNQRO0A). 

A  ITRKBl  1 0.4).ITRKR(10,4).TOiFB(  1 0,3).TOFR(  10,3) 
COMMO/£pRJOTY/KPRJB(200.  )ftJ(PRIfl(200. 10) 
COMMON/ACEUACELB(10,5)>CELR(I0.5]TGRAOEB(200).GRADER20CI) 
C0MM0NIEMENERGY)nBLUEJIEMW.NEMWN(3)EWP(32.EG(G, 

A  ELSYS5a)).MOC)£EMgW!,TE(200).TEM(200^).mM(200i) 

COMMON/TURRET/AZTB(200),AZTR(200),TRATEB(10),TRATER(10} 
COMMONXXX)KERSN(XiOMYCOOK(400^).PBURNa(  10),P8URNfl(  10), 
A  KBURNB(200).KBURNfl<200) 

CHARACTER'S  BFNAMERFNAME 
CHARACTERS)  LINE 
CHARACTER*1S  BFHER.RHIER.MER 
CHARACTER  *24  BUNIT.RUNIT 

CHARACTERS)  HSF.L2FJJFA1RFJL1BM.L2M.L3M.L1RM 
CHARACTERS  FORM 

C  CHARACTER*  1  C2.C3.CA.CSCS.C7.C8.C9.C10JLANK 

1002  WRITE  P.3 

WRITE  (V)  TERRAIN  ON  -  1  OFF  .  Of 
IMfMTP  r  *1 

REAO  r.^W-tOCH)  (TER 
*  tljf 

reaoh.Snx 

READ  I.*)  NY 
REAO  1.*)  SCALE 
READ  1.*)  SCFACT 
READ  l.j  PRFACT 
REAO  1.12FACT 
CLOSE  (1) 


NY.NX 

OPEN  (1.FL£. COLORS.  »V) 
FORMAT  (215) 

DO  151  U1.1S 

REAO(1.311)  NC(OJ4COUNC<I)) 
CLOSE  (t) 

INITIALIZE  PLOTTWQ  FACTORS 

XUN  IT.  11.CYNX  *SCFACT 
YUNITJ.fi/NY 
QXUNIT.1 1 .0/NX  *SCF  ACT 
GYUNIT  J5/NY 
XUNIT-GXUNIT/SCALE 
YUNIT-GYUNIT/SCALE 
211  FORMAT J2F10.4jA5JF104  AS.  IS) 
f  (ITER£u.1)  THEN 
OPEN  (I.FIE.'CONTSEGM.OAT') 


311 

151 

C 

C 

C 

C 

c 


101 

c 

c 


hi 


READI1 J11ERR-1001)  XA.YA.I1  J(B.YB.I2.C(0 
WRITE  ri")  XA,YA.I1.X8,YB.I2,IC(I) 


XIIIVXA'XUNIT 
X2lUXB*XUNIT 
YljlUYA'YUNIT 
Y2(IHYB*YUNIT 
Ukl 

JCON.M 
GO  TO  101 
C 

1001  CONTINUE 
CLOSE  (1) 

C  READ  CONTOUR  AND  GRID  ELEVATION  INFORMATION 

C 

OPEN  ( 1  .FILE.' JOAVtS.DAT) 

C.....REAO  NO.  OF  DATA  POINTS.  NO.  OF  CONTOURS.  DATA  FORMAT 
READI1.510)  NOATA,  LC.  FORM 
C  WRITE  I*  510)  NOATA.  LC.  FORM 
510  FORMATII8.&A13) 

‘  -  TOUR  VALUES 


C..-.READ  THE  CONTOU _ 

REApIt/ORM)  (CONT(A,I.UC) 

C  WRITE  (-.FORM)  (CONT(l).UUC) 


514 


511 


512 

513 

C 

C 

C 

C 

C 

c 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


CLOSE  (1) 

CONVERT  CONTOUR  MPUT  DATA  FROM  ELEVATIONS  IN  FEET 
TO  ELEVATIONS  IN  KM 
DO  514  U1.LC 

CCNT^T.B'JOWIOOO. 

ELSE 

LC-1 

CONT(1M>.0 

END1F 

OPEN  (1  tFILE.'GRID.DAT) 

FORMAT  (315) 

D0  513IX.1J4X 
DO  512  IY-1.NY 
UNY*(IX-1)»IY 

REAO  (1.511)  NUMX.NUMY.ELEV(I) 
tF^TERNEI)  IELEV(I)-1 

CONTINUE 
CLOSE  (1) 

READ  FORCE  STRUCTURE  AND  MOVEMENT 

BHEIR  BLUE  FORCE  HEIRARCHY 
RHEIR  RED  FORCE  HEIRARCHY 
BUNIT  BLUE  UNIT  NAMES 
RUNIT  RED  UNIT  NAMES 

IB3YS  BLUE  SYSTEM  NUMBER  AND  NUMBER  OF  SYSTEMS  FOR  EACH  UNIT 
IRSYS  RED  SYSTEM  NUMBER  ANO  NUMBER  OF  SYSTEMS  FOR  EACH  UNIT 
NB  NUMBER  OF  BLUE  UNITS 
NR  NUMBER  OF  RED  UNITS 

BXYA  BLUE  UNIT  ABSOLUTE  X  ANO  Y  POSITION 
RXYA  RED  UNIT  ABSOLUTE  X  AND  Y  POSITION 
XQ  X  POSITION  IN  GRID  UNITS 
YG  Y  POSITION  IN  GRID  UNITS 

18 SA  BLUE  UNIT  SPEED  AND  AZIMUTH  (ROUNDED  TO  INTEGER) 

IRSA  RED  UNIT  SPEED  AND  AZIMUTH  (ROUNOED  TO  INTEGER) 


It 


COMMOMFO«C£(BHER<a00),FiHCR(20q).aUNrr(20ffl,RUNrr(200). 
5  BSYS(200J).IRSYS(200J)J.1BFJJFX3FJ.1RFJ«J« 

DO  111.1.200 
BHIERm.*  * 

RHIERIB*' ' 

BUNIT  I).*  * 

RUNIT  I)-*  * 

IBSYS(I.IW) 

ISSYSIjU) 

IRSYSjl.l  -0 
IRSYSIJ  .0 
CONTINUE 

OPEN  FILES  AND  REAO  CURRENT  STATUS 
READ  FORCE  STRUCTURES 
OPEN  (1,FILE.'8FORCE*) 

REAO  (1.3)  L1BF 
READ  1.3  L2F 


2 


AEADJUIUF 

m&wr 

WRITE  (*41L3F 
FORMAT  (A  164244*1 
FORMAT  Uan 
FORMAT  Tl  XA164244*) 
FORMAT  (1X480) 

REAO  MAERR-100)  BHIEI 
f  (BSYSfLlI.EO.O) 
WRITE  (*4  1)  BMkfel)3U* 
I— 1—1 

GOTO  10 
CONTINUE 
NO-FI 
CLOSE  (1) 

OPEN  (1.FLE-RFORCE1 

read<i.mlirf 

READ  14}l2F 
READ  (14)  L3F 
WRITE  (*41)L1RF 
WRITE  (*41)  I4F 
WRITE  (*41)  L3F 
1-1 


^aUMT^.aOYS(L1).IBSVS<L2) 

(I)!®SYS(I.1).BSYS(I45 


1.1.1 

GOTO  20 
200  CONTINUE 
NR4-1 
CLOSE  (1) 

C  READ  MOVEMENT  STATUS 
OPEN  II'FILE-'BMOVE') 

READ  (141 L1BM 
READ  l3  L2M 
READI14)  L9M 
C  WRITE  1*411  L1BM 
C  WRITE  *41  L2M 
C  WRITE  |*41  I4M 
12  FORMAT  (A184244F842M) 

121  FORMAT  (1X41842MF844W) 

8  ?j^UWT(QJXVA<L1).BXYA(l.21.BXYO(L1 


MTVPEB(l)-0 

0XVPIL1HL 


IIT(l)4XVA(L1KBXVA(l4J.BXVO(L1). 


110  CONTPftJE 
CLOSE  (1) 

c 

OPEN  (IjFLE-RMOVET 
READ  (1.3)  L1RM 
READ  Jl3  L2M 
READ  (14)  I4M 
C  WRITE  (*41)  L1RM 
C  WRITE  1*41)  L2M 
C  WRITE  1*41)  I4M 
00  IIS  M/M 

REAOjl.12)  RHERfflRUNmiLRXYA(L1)JUWA<L21RXVO(L1). 

C  *  IWrS (^Sm^!i«»^»JNrT(ILRXVA(U)RXVA(l4).RXV0(l.  1). 

c  w* 

MTYPERlS-0 

118  CLOSE(1) 

C 

C 

C  READ  WEAPON  SYSTEMS  CHARACTERISTICS 
C 

C  WEAPONS  .FOR 

C 

C  INPUTS  WEAPONS  CHARACTERISTICS  FROM  DATA  FLES 

C  FLE  STRUCTURE  IS  OEFMEO  M  FEE  *WEAPONSJN* 

C 

C  N8F  » OF  BLUE  SYSTEM  FILES  <10  MAX) 

C  NOR  •  OF  RED  SYSTEM  FILES  (10  MAX) 

C  BFNAME  BLUE  SYSTEM  FIE  NAMES  (10  MAX) 

C  RENAME  RED  SYSTEM  FLE  NAMES  _  (10  MAX) 

C  NWO  8 OF  BLUE  WEAPONS  FOR  EACH  SYSTEM  13  MAX) 

C  NWR  •  OF  RED  WEAPONS  FOR  EACH  SYSTEM  J3  MAX) 

C  NRWB  •  OF  RANGES  FOR  EACH  BLUE  WEAPON  PER  SYSTEM  (6  MAX) 

C  NflWR  •  OF  RANGES  FOR  EACH  RED  WEAPON  PER  SYSTEM  (6  MAX) 

C  RS  BLUE  WEAPON  RANGES 

C  RR  REO  WEAPON  RANGES 

C  PKB  BLUE  Pk  FOR  EACH  RED  TARGET  (EXPOSEDIDEFLADE)  (10  MAX) 
C  PKR  RED  PL  FOR  EACH  BLUE  TARGET  (EXPOSE CKOEFCADE)  (10  MAX) 
C  NRN08  •  SHOTS  FOR  EACH  BLUE  WEAPON 
C  NRNOR  »  SHOTS  FOR  EACH  RED  WEAPON 

C  TEMAX8  MAX  RANGE  ENGAGEMENT  TIME  FOR  EACH  BLUE  WEAPON 
C  TEMAXR  MAX  RANGE  ENGAGEMENT  TIME  FOR  EACH  RED  WEAPON 


TEMM8  MIN  RANGE  ENGAGEMENT  TIME  FOR  EACH  BLUE  WEAPON 
TEMINR  MM  RANGE  ENGAGEMENT  TIME  FOR  EACH  REO  WEAPON 
MLB  BLUE  WEAPON  FIRE-ANO-FORGET  (0)  OR  MAN-IN-LOOP  (1) 
MLR  RED  WEAPON  FRE-ANO-FORGET  (0)  OR  MAN- IN-LOOP  (1) 
BORES  BLUE  BATTLESIGHT  RANGES 
BORER  RED  BATTLESIGHT  RANGES 
TOFB  BLUE  TIME  OF  FLIGHT  TO  BATTLESIGHT 
TOFR  RED  TIME  OF  FLIGHT  TO  BATTLESIGHT 
IRNGB  BLUE  WEAPON  RANGING/TRACKING  THROUGH  OBSCURANTS 
IRNGR  REO  WEAPON  RANGMGTRACKMQ  THROUGH  OBSCURANTS 
ITRKB  BLUE  SYSTEM  SEEING  THROUGH  OBSCURANTS 
ITRKR  REO  SYSTEM  SEEING  THROUGH  OBSCURANTS 
SRCHB  SEARCH  RATE  BLUE  SYSTEM 
8RCHR  SEARCH  RATE  REO  SYSTEM 
ACE  LB  BLUE  SYSTEM  ACCELERATION  PARAMETERS 

1  -  MAX  SPEED  ON  FLAT  GRADE 

2  -  TIME  FROM  ZERO  TO  MAX  SPEED 

3  -  MAX  SPEED  ON  A  GRADE 

4  -  GRADE  FOR  THAT  HAXSPEED  (DEGREES) 

5  -  TIME  FROM  ZERO  TO  THAT  MAX  SPEED 
ACELR  REO  SYSTEM  ACCELERATION  PARAMETERS 

NIT1AUZE  ARRAYS 
DO  116  JJ-1.180 


DOT  17  11.140 
PKB(JJ,ll)«0.0 
PKR(JJ,ll)-0.0 
117  CONTINUE 
116  CONTINUE 
0011111-140 


301  FORMAT  (El 

302  FORMAT  MM 

303  FORMAT  (A9&) 

501  FORMAT  11X.Q) 

502  FORMAT  (1X48) 

$03  FORMAT  {1X4901 

OPEN  II.FlLE-'WEAPONS.I 
READ  (1.301)  NBF 
C  WRITE  f.501)NBF 
DO  310  MJHF 
READ  [1 .302)  BFNAMEffl 
C  WRITE  (*.502)  BFNAME(I) 
310  CONTINUE 


READ!}  .3021  RENAME© 

C  WRITE  (*.502)  RFNAME(0 
312  CONTINUE 
CLOSE  (1) 

C  READ  BLUE  FLES 
C 

DO  400  uihbf 
OPEN  (l.FILE-BFNAME(l)) 
READ 1(1403)  LINE 
C  WRITE  (*,5031  LINE 
REAO(1.3ciplN6 
C  WRITE  (\503  LINE 
READ  (1.3031  LINE 
C  WRITE  (*,503)  LINE 
READ  (1.303)  LINE 
C  WRITE  (*,503)  LINE 


WRITE  (*,503)  LINE 
FORMAT  (18.318) 
FORMAT  1X.I8.3I8 
READ  (1420)  NY 
WRITE  (*,520)  NWS 
DO  350  J-1,NW8(I) 
READ  (1.303)  LINE 
WRITE  (*.50a  LINE 

WRITE  r503)  LINE 
READ!  1.303)  LINE 
WRITE  (\50a  LINE 
RE  ADO. 303)  LINE 


( 18  318 

NWBIOTNRWBOJ)  J- 1 4) 

))  NWB(0,(NRWB(U).J-14) 


WRITE  (*.! 
READ  (1.30 
WRITE  (*,! 


f  (F8.040F8.fi) 


521 


C 

C 

c 

c 

c 

MO 

300 

8 


atMMriowj-irMK 

WHERE  kiYSTEM  FIE  (10  MAX);  J-SY8TEM 
K- WEAPON  RANGE  ft  MAX);  N-TARGET  ( 


WEAPON  (3  MAX); 
(2*10  MAX) 


WRITE] 

contBL 

CONTINUE 
WRITE  M 
WRITE 
READ  (d 
WRITfe 
REAO  I 


asssfer 

WRITE  M&B  LINE 
«AO  (12(5)  UNE 


^Rmtf.3dj)LIN6 
FORMAT  (IO.IOJF02.ajFM) 

FORMAT  }lX.W.WJXJ(FSJJX).1X.a.1XJF8J) 
DO  300  L-1.NW8(0 


0ROF-(M)*3»L 
WHERE  kSYST 


IE  kSYSTEM  FILE  (10  MAX);  L-SYSTEM  WEAPON  (3  MAX); 

READ  |1^22^M^NFwp8(ISROF).TEMINfl(ISROF).TSMAXB(BROF). 

^;SmNI^De(:||}!l'OF),TEMINB<ISROF).TEMAXB(ISflOF), 


EB(I.L).TOFB(l,L) 


c 

362 


REAOIIi  . 

WRITE  (*.5d3)  LINE 
READ  (1203)  UNE 
WRITE  r,503)  LINE 
READ  (1203)  LINE 
WRITE  (*. 503)  LINE 
FORMAY  (SIB) 

FORMAT  (1X.SM) 

DO  3S1  U1  J4WB(b 
tSR0FMH)*3.L 

WHERE  I -SYSTEM  FIE  (10  MAX);  L-SYSTEM  WEAPON  (3  MAX); 
3-CONCEALMENT  TYPE  4  MAX) 

READ0201)  IU(«NG8(lJ)J-M] 

VWTEMjB)  IL.(WNGB(U)2-M) 

READI12W)  LINE 
WRITE  C. 503)  LINE 
READ  (1203)  LINE 
WRITE  (*.503)  LINE 
READ  (1203)  LINE 


READ  (1203)  LINE 
WRITE  (\500J  LINE 
FORMAT  (4I&) 


FORMAT  (1X.4I8) 
READIl 262)  (ITRKI 


c 

364 


C 

c 

c 


READ  n  _ 

WRITE  r.3da>  LINE 
REApi12(SLlNE 
WRITE  r,503)  LINE 
FORMAT  (216) 
FORMAT  1X2 
REAO(1 
WRITE  <*265 


B(I.L).UM) 

*®(LL)X-k 


M) 


JRATEBO) 

B<l) 


400 

C 

C 

c 


ACCELERATION  PARAMETERS 
READ  (1.303)  LINE 
WRITE  C503)  LINE 
READ  (1.303)  LINE 
WRITE  C,503)  LINE 
READ  (1.303)  UNE 
WRITE  (*.503)  LINE 
REAO(1A81)7aCELB(ID.U1.5) 

WRITE  CABS)  (ACELB(I.L).L-1 .5) 

CLOSE  (1) 

CONTWUE 

READ  RED  FEES 

DO  500  U1.NRF 
OPEN  (lEILE-RFNAME(l)) 

READ  (1.303)  UNE 
WRITE  r.50»  LINE 
READ  (1203)  UNE 
WRITE  (*.503)  LINE 
READ  (1.303)  UNE 
WRITE  r. 503)  LINE 
REAO  (1203)  UNE 
WRITE  (*,503)  LINE 

RE  AO(1 22D)fawR(l)  .(NRWR/l  J)  2*  1 2) 
WRITE  (*,620)  NWH(0ANRWR(U)2>  1 2) 
DO  490  J-1,NWR(I) 

READ!) 203)  UNE 
WRITE  (*.303)  LINE 
READI1203)  UNE 
WRITE  C.803)  UNE 
READ! 1.303)  UNE 
WRITE  (*.903)  LINE 
READ  (1,303)  UNE 


C  WRITE  (‘.SOS  LINE 
READ  (1.303)1 INE 
C  WRITE  (*.903)  LINE 
READ(1203)IlNE 
C  WRITE  (*.S03UNE 
DO  440  K.lJ«WR(U) 

ISFUIL  11*1 6^3- 1T6.K 

C  WHERE  USYSlEM  FILE  (10  MAX);  J-SYSTEM  WEAPON  (3  MAX); 
C  K.  WEAPON  RANGE  (6  MAX);  N-TARGET  (2*  10  MAX) 

REAO  (1.321)  R»ISfl).(PKR(ISR,IST),IST.1  JO) 

MO  oSlTtfijE  ’* 

490  CONTINUE 

READ  (1203)  LINE 
C  WRITE  (*,503  UNE 
READ!) 203)1 INE 
C  WRITE  (*.5(53)  LINE 
READ  (1.303)1 INE 
C  WRITE  (*.903  LINE 
00  460  ULNWR(I) 
tSR0F-(H)*3*L 

C  WHERE  WSYSTEM  FILE  (10  MAX);  L-SYSTEM  WEAPON  (3  MAX); 
REAO  (1.322)  M.NRNDR(BROF).TEMlNR(ISROF).TEMAXR(IS%)F). 

6  MILR|I.L).B0RER(I,L).T0FR].L) 

C  WRITE  (\522)  M.NRNDR(lSROF).TEMINR(ISROF).TEMAXR(lsnOF). 
490  *  QQ^[Jjj^0^^l-L).T0FR(|.L) 

READ  (1.3M)  LINE 
C  WRITE  (*,903)  LINE 
READ  1 1 .303!  LINE 
C  WRITE  (*.903)  LINE 
READ  <1,303)1 INE 
C  WRITE  (*.903)  LINE 
READ(1.3(SI|NE 
C  WRITE  (*.903)  LINE 

READ  (1,303)1 INE 

C  WRITE  (*.503)  UNE 
DO  451  L-LNWR(I) 

ISR0F.(M)*3»L 

C  WHERE  l-SYSTEM  FILE  (10  MAX);  USYSTEM  WEAPON  (3  MAX); 
C  J-CONCEALMENT  TYPE  (4  MAX) 

REAO  (1.3611  C(«NGR(I.J)2-M 

READ  (1,303)  LINE 
C  WRITE  (‘.903  LINE 

readiijckSline 

C  WRITE  (*, 903  UNE 

READ(12c5)LINE 
C  WRITE  (*.903)  LINE 

REAO  (1.352)  (ITRKR(I,L).L-1.4) 

C  WRITE  (*.363)  (ITRKR(LL)  A.-  M) 

READJI.SCO)  LINE 
C  WRITE  C.503  LINE 
READ(1,303)LINE 
C  WRITE  (-.903  UNE 
READ(1264)Sr - 

wRrrfe  r.f 

ACCELERATION  PARAMETERS 
FORMAT  (5Fai) 

FORMAT  (1X.SF8.1) 

REAOJ1 J03)  LINE 
C  WRITE  (*.503  LINE 
readji.soSTlne 
C  WRITE  (\ 503  UNE 

READJ12WILINE 
C  WRITE  (*,503)  LINE 

RE  ADI1 ,461 )TaCELR(I.L),L-  1 .5) 

C  WRITE  (*.462)(ACELR(I.L).L.1.5) 

CLOSE  II) 

500  CONTINUE 

C  REAO  ELECTROMAGNETIC  ENERGY  PARAMETERS 
OPEN  (1  .FILE-'EMGUN.IN') 

REA00.3)  L1BF 
C  WRITE  (*.31)L1BF 
REAOO.3)  (2F 
WRITE  (*,31)  L2F 
FORMAT  (IS) 

FORMAT  (1X.B) 

READ  (1.531)  NBLUE 
WRITE  r.532)  NBLUE 
REA0(12)  L1BF 
WRITE  P.31)  L1BF 
READJ1.531)  NEMW 
WRITE  r, 532)  NEMW 
REA011.3)  L18F 
WRITE  (*,31)  L1BF 
FORMAT  (216) 

FORMAT  (1X218) 

READIl ,533)  (NEMWN(IEM),EM.1,NEMW) 

WRITE  r.SOf)  (N£MWN(EM).«M-1JYEMW) 

READM  2)  L1BF 
WRITE  r. 31)  L1BF 
READIl 2)  liF 
WRITE  (*21)  L2F 
FORMAT  (2F8.3) 

FORMAT  IXJFS.3) 

TM-1.NEMW 


C 

C 

C 

461 

462 


;i).TRATERm 

HR(I).TRATER(I) 


c 

531 

532 


C 

533 

904 


C 

905 

906 


DO  507  EM 
READ  (1,505)  (EWPOEM.JEMUEM.IJ) 
WRITE  (*.906)  (EWP(IEMJEM)  JEM-1  J) 
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807  CONTWUC 
REA0I1 A L1BF 
C  WRITE  <\3HL1BF 
„  REAOUJ)  L1BF 
C 


W^CitiUEF 

REAOIUI  L1BF 

'»&>«&£ 

FORMAT  {1X.5F8.3) 
REAOll.SC*)  (EGOEMLEM-I.S) 
WRITE  r.m)  (EQ(IEU).eM.I.S) 


CLOSE  (1) 


C  NITIALIZE  BLUE  EM  WEAPON  ENERGIES 

C  AND  NUMBER  OF  SHOTS  FOR  EACH  BLUE  ANO  RED  WEAPON 

C 

C  BSYS  BLUE  SYSTEM  NUMBER  ANO  NUMBER  OF  SYSTEMS  FOR  EACH  UNIT 
C  WSYS  RED  SYSTEM  NUMBER  ANO  NUMBER  OF  SYSTEMS  FOR  EACH  UNIT 
C  NS  NUMBER  OF  BLUE  UNITS 
C  NR  NUMBER  OF  RED  UNITS 
C  NRNOB  *  SHOTS  FOR  EACH  BLUE  WEAPON 
C  NRNOR  #  SHOTS  FOR  EACH  RED  WEAPON 
C  NWS  •  OF  BLUE  WEAPONS  FOR  EACH  SYSTEM  (3  MAX) 

C  NWR  *  OF  RED  WEAPONS  FOR  EACH  SYSTEM  (3  MAX) 

C  *  NRNO6<30|.NRNOR<30).TEMAXa(30).TEMAXR(X).TEMNBO0). 

C  BROF^I-  >*9»J 

00600  MAW 
NSYS-tBSYS(LI) 

f  (NSYS.EQ.N8I.UE)  THEN 

te^■£Q(,, 

IFjELSYSm.LE.EGp))  THEN 

C  START  CHARGING  SYSTEM 

ELSE 

M00EEM(IW1 
C  SYSTEM  IS  IOLE 

ENOW 
END  IF 

NWEAP-NWB<NSYS) 

UMSM-O 

C  SMOKE  GRENADES  (2  VOLLEYS  MAX) 

NGREN8II.1M 
NGRENB/La-O 
IB£SMK(h-0 
DO  580  J-l.NWEAP 
SR0F-flMYS-1}*3W 
NSHOTB(IJ)aNRNOB<ISROf) 

580  CONTINUE 
SCO  CONTINUE 
C 

00  700  H1.NR 
NSYS-WSYS(LI) 

NWEAP-NWR(NSYS) 

IAMR(l)-0 

C  SMOKE  GRENADES  (2  VOLLEYS  MAX) 

NGRENRII.1U2 
NGRENRIIJB-O 
lfl£SMK(l)-0 
DO  680  J-l.NWEAP 
ISROF-(NSYS-1)*3-J 
NSHOTR^-NrtNORIlSROF) 

CONTINUE 


C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 


TCFMR  CYCLE  TME  M  EACH  FIRE  MOOE  FOR  REO  SYSTEM 
TTFMB  TOTAL  TIME  IN  EACH  FIRE  MOOE  FOR  BLUE  SYSTEM 
TTFMfl  TOTAL  TIME  IN  EACH  FIRE  MOOE  FOR  REO  SYSTEM 
TRMMB  TIME  AT  MUCH  BLUE  SYSTEM  CAN  RE -MOOE  MANEUVER 
TRMF8  TIME  AT  WHICH  BLUE  SYSTEM  CAN  RE -MOOE  FIRE 
TRMMR  TIME  AT  WHICH  REO  SYSTEM  CAN  RE-MOOE  MANEUVER 
TRMFR  TIME  AT  WHICH  RED  SYSTEM  CAN  RE-MOOE  FIRE 


COM  MON/MODE  S/UOOEU 
A  TCMMROOO,3),TTMMI 
A  MOOEFFU2QO)  JCE WBC 
A  TTFM8(200.#)JTFMR( 

A  TRMFR|200),TRDESB<: 

00  800U1H8 


M00EM8(IWt 
IF  (IBSAIU>.EQ.Q) 
TTMMSIL1)«0-0 


MOOEMB(l)-3 


►4-0.0 


TTMMBlU 
TTMMBILSi  .  . 

MOOEFBlh.) 

AZTB(l)-iBSA(l.2) 

TTFMB  LH-0.0 
TTFMB  1.2  -0.0 
TTFMBi  1.3  -0.0 
TTFMB!  U  -0.0 
TTFMBi  LS  -0.0 
TTFMB  1.6  -0.0 
TTFMB  1.7  -0.0 
TRMMB(l>-0.0 
TRMFB(l)-0.0 

TOTAL  TIMES  FOR  EACH  CYCLE  ARE  MITIALIZEO  GOING  WTO 
BATTLE  PHASE 

INITIALIZE  TERRAIN  GRADE  FOR  EACH  VEHICLE  FOR  ACCELERATION 

DETERMINATION 

KSIOE-1 

CALL  QRAOE  (KSOE.I) 

INITIALIZE  ACTUAL  VEHICLE  SPEED 
ISP0B(I)-I8SA(11) 


800  CONTINUE 
C 

DO  850  HI. NR 


MOOEMR(IW1 
F  (IRSA(G).EQT9 
ttmmril1)-o.c 


MOOEMR<l)-3 


680 

700 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


TTMMR(l.2)-0.0 
TTMMRI.3)-0.0 
MOOEFRflj-7 
AZTR[l).IRSA(l.g 
TTFMR(L1>-0.0 
TTFMR  IJ  -0.0 
TTFMR  1.3  -0.0 
TTFMRII.4 -0.0 
TTFMR(I,5  -0.0 
TTFMR  1.6  -0.0 
TTFMR(L7  -0.0 
TRMMR(l)-0.0 
TRMFRffi-0.0 

INITIALIZE  TERRAIN  GRADE  FOR  EACH  VEHICLE  FOR  ACCELERATION 

DETERMINATION 

KSIDE-2 

CALL  GRADE  (KSOE.I) 


INITIALIZE  MOVEMENT  ANO  FIRE  MOOES 
MANEUVER  ANO  FIRE  MOOES. 

MODEL  TRACKS  THE  CURRENT  MOOE  EACH  SYSTEM  IS  W. 

THE  TIME  WHEN  THE  SYSTEM  CAN  RE-MODE. 

AND  THE  ACCUMULATED  TIME  W  EACH  MODE  DURING  EACH  BATTLE  CYCLE 

THIS  MOOE  WFORMATION  IS  DUMPED  AFTER  EACH  BATTLE  CYCLE 
ANO  TOTAL  ACCUMULATED  TIME  IS  DUMPED  AT  END  OF  GAME 

MODEMS  CURRENT  MANEUVER  MOOE  FOR  EACH  BLUE  SYSTEM  (3  MODES) 
MOOE  1 -DRIVING 
MOOE  2  -  ACCELERATING 
MOOE  3  -  STOPPED 

MOOEMR  CURRENT  MANEUVER  MOOE  FOR  EACH  RED  SYSTEM 
TCMMB  CYCLE  TIME  IN  EACH  MANEUVER  MODE  FOR  BLUE  SYSTEM 
TCMMR  CYCLE  TIME  W  EACH  MANEUVER  MOOE  FOR  RED  SYSTEM 
TTMMB  TOTAL  TIME  W  EACH  MANEUVER  MOOE  FOR  BLUE  SYSTEM 
TTMMR  TOTAL  TIME  W  EACH  MANEUVER  MOOE  FOR  RED  SYSTEM 
MOOEFB  CURRENT  FIRE  MOOE  FOR  EACH  BLUE  SYSTEM  (9  MOOES) 

MODE  1  -  SEARCHING  FOR  TARGET 8 

MOOE  2  -  ENGAGING  A  TARGET 

MOOE  3  -  INSUFFICIENT  EM  ENERGY  (HOLD  FIRE) 

MOOE  4 -CREW/GUNNER  BALKS  ANO  HOLDS  FIRE 
MOOE  5  -  (HOLD  FIRE)  NO  TARGETS  WITHIN  EFFECTIVE  RANGE 
MOOE  8  -  MISSED  TARGET  RE-ENGAGE 
MOOE  7  -  SURVEILLANCE 
MOOE  8  -  RE -DESIGNATE  MAN- IN-LOOP  WEAPON 
MOOE  8  -  SACRIFICE  SHOT  (FIRE-ANO-FORGET  WEAPON) 

MOOEFR  CURRENT  FIRE  MOOE  FOR  EACH  RED  SYSTEM 
KEWB  CURRENT  ENGAGEMENT  WEAPON  ON  BLUE  SYSTEM 
KEWR  CURRENT  ENGAGEMENT  WE/FON  ON  RED  SYSTEM 
TCFMB  CYCLE  TIME  W  EACH  FIRE  MOOE  FOR  BLUE  SYSTEM 


CONTINUE 
WRITE  |Vj  'V 


ISR-1.38) 


;isr).isr-i 


C  INITIALIZE  ACTUAL  VEHICLE  SPEED 
ISPOR(l)-IRSA(l.l) 

C 

850 

C 

c 

C  INRITE 
C  WRITE  (V)  ( 

C  WIND  CONDITIONS 

C 

855  WRITE  (V) 

WRITE  (V)  SviNO  CONDITIONS* 

WRITE  I*.*)  *1  -  RANDOM  WIND  -  15  KNOTS  MAX.  ANY  DIRECTION 
WRITE  r.T  *2  -  ENTER  WIND  CONDITIONS* 

WRITE 

RE  AO  I*.*  ERR-855)  WIND 


r.vw 

m 

LEAD  (V'ERR-856)  WIND 
IF  (IWINO.LT.1 .0R.WIN0.GT2)  GO  TO  866 
IF  (IWIND.EQ.1)  THEN 
WRANC - 


NO-RNDO 
WSP£EO-NINT(15.0*WRAND) 

ORAND-RNDO 

WDIR-NINT(ORANO*380.0) 

WRITE  I*,*) 

WRITE  f.T  RANDOM  WIND* 

WRITE  r.T  IWSPEEO.*  KNOTS  going  towvOi  AZIMUTH  '.IWOIR 
WRITE  (*.T 
ELSE 

WRITE  (*.T 

WRITE  r.T  ENTER  WIND  SPEEO  (KNOTS  rax  IS)  and  AZIMUTH 
WRITE  C.T 

READ  (V.ERR-855)  WRANO.DRANO 
IF  (WHAN0.GT.15J  WRANO-15. 

IF  (DRAND.LT.0.0)  DRAND-ORANO-380. 

IF  (DRAND.GTS60.0)  DRAND-0RAND-380.0 
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iwspseo-wtiwrano) 

IWOtR>MT(QRANO) 

wmj£9lW8PEEO.'  KNOTS  going  toward*  AZftttJTH  MWOtR 
END* F  **' 

OUST  CONDITIONS 
ft  WRITE  ('  *1 

WRITE  IY)  MT  CONDITIONS 
WRITE  M'l- YES -PLAY  OUST  ’ 

WRITE  M  -2  -  NO  -  DO  NOT  PLAY  OUST 

write  r.T. 

read  rinun  OUST 
IF  (OUSVi.T.1  .OflLCUST.GT.2)  GO  TO  MB 

mrriALiZE  smoke  ano  oust  arrays 

OUST  AND  ENGME  SMOKE  CLOUDS  ARE  ACCOUNTED  FOR  AS  DGSCRETE 
PUFFS.  GRENADE  ANO  ARTLLERY  SMOKE  ARE  MODELED  AS  CURTAINS. 

PUFFS  ARE  HEMISPHERICAL  FOR  PURPOSES  OF  EXPANSION  ANO  WIND  DRIFT. 
CURTAINS  00  NOT  EXPAND.  BUT  DO  ORFT  ON  THE  WIND 
PUFFS  CAN  BE  GENERATED  IN  10  SECOND  INCREMENTS.  PUFFS  ANO 
CUR  TRAINS  ARE  MOVED  ON  THE  WIND  ONLY  EVERY  10  SECONDS. 

PUFFS  ANO  CURTAINS  DISSIPATE  EVERY  ftO  SECONDS.  PUFFS  EXPANO 
AT  A  RATE  OF  ft  FEET  PER  SECOND. 

EXPUFF.ft.O'.SOWtOOa 
DTPUFF-10.0 
TENOPUFFaftOU) 

OUST  ARRAYS 

ACTIVE  CLOUDS:  BEQMNMQ  NUMBER  •  1  ;  ENDING  NUMBER  •  1 
PTDUST  (2400J)  -  POSITION  X.Y  ANO  TIME  FOR  OUST  PUFFS 
OUST  1.0 
I0UST24! 

NOUSTU) 

N0USTMXJ400 
ENGINE  SMOKE  ARRAYS 

ACTIVE  CLQUOS:  BEGINNING  NUMBER  .  1  ;  ENDING  NUMBER  -  1 
PTENQ  (24003)  -  POSITION  X.Y  ANO  TIME  FOR  ENGINE  SMOKE  PUFFS 
lENGIaO 
IENG2aO 
NENGM) 

NEMMUU2400 
SMOKE  GRENADE  CURT  APIS 

ACTIVE  CLOUOS:  BEGINNING  NUMBER  -  1  ;  ENOMQ  NUMBER  •  1 
PSMK  (4002)  -  POSITION  X.Y  FOR  SMOKE  GRENADE  CURTAIN 
TASMk  (400.2)  -  TIME  ANO  AZMUTH  FOR  SMOKE  GRENADE  CURTAIN 
ISMK1-0 
ISMKSaO 
NSMK.0 
NSUKUXMflD 

ART1UERYSMOKE  CURTAINS 

ACTIVE  CLOUOS:  BEGINNING  NUMBER  >  1  ;  ENDING  NUMBER  -  1 
PART  (98.2)  -  POSTON  X.Y  FOR  ARTILLERY  SMOKE  CURTAIN 
TAAHT  (MU)  -  TIME  ANO  RADIUS  FOR  ARTILLERY  SMOKE  CURTAIN 
lARTIaO 
IART2U) 

NARTaO 

NARTMX4B 

MITIALIZE  TARGET  PRORITIZATON 

DO  901  K 1-1200 
DO  (S»  KJ-1.10 
KPRttKLKJWI 
KPRIR(KI,KJ)-1 
12  CONTINUE 
It  CONTINUE 

REAO  TARGET  DETECTION  SIGNATURE  DATA 
CALL  RSIGNAT 

READ  ACTIVE  PROTECTION  SYSTEM  OATA 
CALL  REAOAPS 

REAO  PROBABLITY  OF  VEHICLE  BURNING  DATA  ANO  MITIALIZE  ARRAYS 
CALL  READCOOK 
REAO  MINEFIELD  DATA 
CALLREADMMES 
REAO  ARTILLERY  SYSTEM  OATA 
CALLREADARTY 

MITIALIZE  ARTILLERY  AVAILABO-ITY 
CALL  ARTMIT 


SUBROUTINE  MAPIT 

MAP. FOR 
PLOTS  OHIO 

THEN  OVERLAYS  CONTOURS 


COMMON/GRIONX,NY, SCALE  SCFACT.PRFACT2F  ACT 
^COMLK)N<TOuraDO(nOO).Y1(1 100)J<2(1 100),Y2(1 100),C(1 100). 

*  I^m5i1o^omCbSbly.xlen,zfactnj(Max.ymax.yunit 

COMMON/FQRC£ySHIER(200),RHtER(200).BUNIT(2Q0)RUNIT(200). 


ft  IBSYS<20021.*LSYS(2002).L18F.L2FL3FL1RF,NB.NR 
COMMONiMOVE'BXYA(2002)^XYA(2002),IBSA(2002).MSA(2002). 
ft  L1BM.L2ML3M.L1RM 

COMMON1MANEUVER/BXYOC2002).RXYO(200^JMTYPEB(200LMTYPERCBX)) 
ft  .BXYPj2002LRXYP^2).»PoS9toJSP0R(204 
COMM5niWEAPONS^>«F.BFNAME(10)JVNAME(10LNWB(10|J4WR(10). 

4  NRY>T8(10J).NnWR(10J).R8(18q.RR<iaO).PKB<1«020).PKRl  19020). 

4  NfVUS(30).NRNOROC|?lEM AXB(30)  JEMAXR(30).  TEM  MSibb). 


tB(10.3|.MILfl(tb.3> 

DMMON/FLAGS/ITER 


CHARACTER'S  BFNAMERFNAME 
CHARACTERS  LINE 
CHARACTER'IS  BHIER.RHIEMHIER 
CHARACTER'S*  SUNIT.RUNIT 

CHARACTER*90L1BFL2FL3FL1RFL1BM12ML3M.L1RM 
CHARACTER'!  C2.C3£*C&£*£7C*£#C  1  (LBLANK 
CHARACTER' 1  WELL 


120  CALL  ZOOUM  (V*LL) 

F  (WELL.EQ.TZ)  GOTO 200 

121  WRITE  r.T 


WRITE  r.*)  'ENTER  MAPPMG  OPTIONS' 

WRITE  CO '  GRIO.CONTOURS.  UNITS  .OBSCURANTS  (1.YESAFNO)' 
WRITE  C.l_ 

READ  (V.ERR.121)  ORO.CONT.AJNIT.OBSC 
CALL  PLOTS  (0.1.0) 


READ  (‘.‘.ERR.121)  ORO.CONT.AJNIT.OBSC 
CALL  PLOTS  (0.1.0) 

f  (ICONT.EQ.  1  AND.ITER.EQ.1)  CALL  CONTPLOT  (JCON) 
r  IGRI0.EQ.1)  CAU  GRI02 
f  IUNIT.EO.1)  CALL  PLOTMINES 
F  OUNIT.EQ.li  CAU  UNITS 
IF  (CBSC.EQ.1)  THEN 
CALL  PDUST 

PLOT  ENGINE  SMOKE  CLOUOS 
CALL  PENG 

PLOT  SMOKE  GRENADE  CURTAINS 
CAU  PSMKCURTANS 
PLOT  ARTILLERY  SMOKE  CURTAMS 
CALL  PARTSMK 
ENOIF 
REAOr.T 

CALL  PLOT  (0J3JIQB) 

GOTO  120 
O  RETURN 
END 

SUBROUTINE  GR02 
GREXFOR 

GRIDS  MAP  WITH  SQUARES 

OPENS  GRIO.DAT  FEE  FOR  ELEVATION  DATA  AT  EACH  GRID  CENTER 

COMMON/GROMXJIY.SCALE.SCFACT.PRFACT.ZFACT 

C0MM0N1Z00448LXSLYJCLEN2FACTN.XMAX.YMAX.YUNIT 

NX  NUMBER  OF  X  GRIDS 

NY  NUMBER  OF  Y  GRIOS  (SHOULD  EQUAL 

SCALE  REAL  WORLD  SCALE  FACTOR  FOR  EACH  GRID 
SCFACT  SCREEN  SCALING  FACTOR  FOR  X  DIRECTION 
PRFACT  PRINTER  SCALING  FACTOR  FOR  X  DIRECTION 
ZFACT  ZOOM  FACTOR  FOR  SIZE  OF  GRID  ON  SCREEN 


DRAW  A  SQUARE  FOR  EACH  OHIO  LOCATION 

CUL  PLOTS  (0.1.0) 

XUNIT-11.(VN)CSCFACT 

YUNIT.ft.5INY 

CALL  FACTOR  (ZFACT) 

IF  (XLEN.GT.O.)  CAU.  FACTOR  (ZFACTN) 

00  100  IX.1NX 
X.lX'XUNIT-XUNIT/2. 

XO.X 

DO  SO  IY.1.NY 
X.XO 

CALL  NEWPEN  (7) 

Y  •  IY*YUN  IT-Y  UNITJ2. 

MOVE  TO  GRIO  SQUARE  CENTER  BOTTOM  LEFT  CORNER 
IF  (XLEN.GT.O.)  CAU  ZOOMIT  (X.Y.ISKIP) 

IF  ISKIP.E0.1)  GO  TO  50 
CALL  PLOT  (X.Y .31 
DRAW  FOUR  SIDES  OF  SQUARE 
CALL  PLOT  (0..YUNIT.12) 

CAU  PLOT  (XUNIT.0.,12) 

CAU  PLOT  (0.,.YUNlT,12) 

CAU  PLOT  (-XUNITA.13 
CONTINUE 
CONTINUE 
READ  f ,") 

RETURN 

END 


SUBROUTINE  CONTPLOT  (K) 

C  CONTPLOT.FOfl 
C 

C  PLOTS  CONTOUR  MAP  AS  GENERATED  BY  SOFTWARE 
C  OPENS  CONTSEGM.DAT  FILE  FOR  CONTOUR  SEGMENTS 
C 
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CCMMOWGROMXJff. SCALE  SCFACT,PRFACT,ZF ACT 
OOMMON/TOURS/XICI  IOOM2<1 100»,VJ<1 100!.  C<  11001. 

4  ^2SQN^cSbaLXJLVjaJIi2FACTHXIMX.VUAX.VUNIT 


NX 

NY 


NUMBER  Of  X  GROf 
NUMBER  - 


PRINTER  SCALING  FACTOR  FOR  X  DIRECTION 
ZOOM  FACTOR  FOR  SIZE  OF  OR©  ON  SCREEN 


,fe. 


FACT 
FACT 
ZFACT 

I8KIP-0 
CAU.  NEWPEN 
CALL  FACTOR 

f  (xlen.qta)'call  Factor  izfactn) 
J-X-1 

00  200  MU 

CAU.  NEWPEN  (NCOL(COU) 

x-xi<n 

v.viM 

F  (XLEN.GT.O.)  CALL  ZOOMIT  (X.Y.8KF) 
F  ISKF.ECL1)  QO  TO  200 
CALL  PLOT  (X.Y.3) 

y!yS3 

F  (XLiN.QTA)  CAU  ZOOMIT  (X.Y.ISKF) 
F  1SKIP.EQ.1)  QO  TO  200 
CAU  PLOT  (X.YJQ 
CONTINUE 
REAor.n 

CAU  PLOT  (0..0..9W) 

RETURN 

ENO 


SUBROUTINE  ZOOM  IN  (WEU) 

ZOOM  WINDOW  MPUTS 

COMMONK3R©/NXJff,SCAI£.9CFACTJ>RFACT,ZFACT 

C0MM0M2D0M«LXdLYjaENJFACTNJ(MAX.YMAX.YUNIT 

BLX  BOTTOM  LEFT  X  COORDINATE 
BLY  BOTTOM  LEFT  Y  COORDINATE 
xlen  zoom  window  see  length 
ZFACTN  NEW  ZOOM  FACTOR  TO  INCREASE  SCALE 

CHARACTER'!  WEU 

XUNIT-11.0MX‘8CFACT 

YUNIT«S.VNY 

WRITE  (*.*}  'ZOOM  OPTION  ?  (Mar  Y  or  N)  (0  quit*  thM  phaaa)' 

WRITE  M 

READ  (\"£RR.1)  WEU 
F  (WEIL-EQ/YTTHEN 

WRITE  (*.*)  ENTER  GRD  NX.NY  OF  WINDOW  BOTTOM  LEFT  CORNER- 
WRITE  CO 

READ  (V.ERR-2)  BLX, BLY 

BLX.BUCXUNIT 

BLY-BLVYUNIT 

WRITE  CO  -ENTER  W1NOOW  EDGE  LENGTH  IN  GR©  UNITS' 

WRITE  M 
READ  {y.ERR-3) ! 


ADr.\ERR- _ 

F  (XLENXTA.I)  XLEN-4.1 

calculate  NEW 


XLEN 
EN-4 
ZOOM  FACTOR 


XCUUTEI  _ 

XLEN1«NX*XUNIT 

zfactn-xleni/xlewxunitzfact 

ZFACTN-ZFACT 

XMAXaXLEN'XUNIT 

YMAX-XLEN-YUNIT 

ELSE 

BLX-l. 

BLY-I. 

XLEN— 1. 

ENDF 

RETURN 

ENO 


SUBROUTINE  ZOOMIT  (X.Y.I3KF) 

EXERCISE  COORDINATE  ZOOM 

COMMON/QRCVNXHYSCALE.SCFACTRRF  ACT  ZFACT 
COMMON/ZOOM/BULBLYD(LEN.ZFACTND(MAX.YMAXYUNIT 

BLX  BOTTOM  LEFT  X  COORDINATE 
BLY  BOTTOM  LEFT  Y  COORDINATE 
XLEN  ZOOM  WINOOW  SIDE  LENGTH 

ISKIPwO 

X-X-BLX 

Y.Y-BLY 

F  (X.LTD.O)  ISKF.1 

F  fY.LT.04  ISKF-1 

F  (X.GT.XMAX)  ISKIP.1 
F  (Y.GT.YMAX)  ISKF.1 


RETURN 

ENO 


C 

C 

C 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 


SUBROUTINE  units 

PLOTS  UNIT  LOCATIONS  (VEHICLES)  ON  MAP 

COMMONX3RCMXJff.SCALE.SCFACT.PflFACT.2F  ACT 
COMMON/ZOOM/BLXJLYJ(LENZFAClN.XMAX.YMAX.YUNrr 
COMMON1MOVE/BXYA(200J2LRXYA(2QO£).IBSM90Q£).MSA£BXL2), 

*  C»MMO^'C^CE^tR<aB0|RHCR(2qq).BUNIT(200I.RUNITC*XX. 

A  IBSYS(2009.IRSYS(200«X1BF.L2FX3FXtRFmNR 
COMMOMCOOKERSMCOOKUffCOOK(400^J>BURNB(1flU>BURNR(tO|. 

A  KBURNB(2pO).KBURNRQOOI 
CHARACTER^*  BHFn.RHtR.HFR 
CHARACTER‘S  BUNIT.RUNIT 
CHARACTER-1  blank 

character-90  libfxzfx3Fxirfxibmx2Mxsmxirm 
Dimension  xarray(4).y  arrays) 

8KF.0 

DRAWS  ANO  FILLS  A  SQUARE  FOR  EACH  UNIT  LOCATION 

SOE  LENGTH  IS  S  METERS  SINCE  LARGEST  UNIT  IS  A  SQUAD  VEHICLE 

WHEN  AT  MAX  ZOOM 

AT  MM  ZOOM,  BOX  IS  DRAWN  LARGER  SO  YOU  CAN  SEE  IT  BETTER 


SO 


CAU  PLOTS  M US 
CAU  FACTOR  Iff  ACT) 
xuNrr-n.tyNX-scFACT 
VUNIT.S.SMY 
GXUNIT- 1 1  LYNX  *SCF  ACT 
GYUMT.B.SMY 
XUNIT aQXUNrT /SCALE 
YUNIT-GYUNIT/SCALE 
XL-XUNrr.OOMCALE-2. 

YU  YUNfT  .000/SCALE  *2. 

XUXUNIT\1  SC*  SCALE 
YUYUNIT*.  ISO/SC  ALE 
F  (XLEN.GT.OJ  THEN 

CAU  FACTOR  (ZFACTN) 

XL-XUNIT*.  1  SO/SCALE  *2FACT/ZFACTN 
YL-YUNir.  1  SO/SCALE  *ZFACT/ZFACTN 
ENDF 

00200N-1.2 
DO  100  Ul .200 
ISKJPsO 

F  (N.EQ.1)  THEN 
HtR-BHCRtl) 

BLANK-MIER]l:1) 

ELSE 

MER.RHER(I) 

BLANIUIHIER(1:«) 

ENDF 

F  (BLANKED. BT  GO  TO  SO 
F  (BLANK  .EO.-R)  QO  TO  SO 
GO  TO  100 
F  (NEQ.1)  THEN 
X-8XYA(L1) 

Y-8XYA(l4 

.  newton  m 


100 

200 

C 


CAU  ) 
F 
F 


{kBB^JRN^I)EEQ.1)  CAU  NEWPENfl’4) 


fl.EQ.O)  CAU  NEWTONT7) 


ELSE 

X-RXYA(tl> 

Y-HXYA/lii 
CAU  fEWPfcN  (12) 

F  (IRSYS(U).EO.O)  CAU  NEWPEN(7) 
F  (KBURNR(i)£Q.1)  CAU  NEWP£N<14) 

ENDF 
X-X-XUNIT 
Y-Y*YUNIT 
F  (X.LE.0.0)  BWP.1 
F  ff.LE.04  ISKIP.1 
IF  (XLEN.GTD.)  THEN 

CALL  ZOOMIT  (X.Y.ISKIP) 

F  (Y.GT.(.9S*YMAX))  ISKIP.1 
F  fXXT.(.OS’XMAX))  ISKIP.1 

ENDF 

F  (ISKF.EQ.1)  GO  TO  100 

DRAW  AND  FILL  FOUR  SIDED  SQUARE 

XARRAY(1).X.XU2. 

XARRAY$.XtXU2. 

XAR  RAY (3)-X- XL/2. 

XARRAY  Ul.X-XL/2. 

YARRAY(1).Y-YU2. 

YARRAY(2).Y.YL/2, 

YARRAY  3 -Y*YL«. 

YARRAY<4  -Y-YL/2. 

CAU  FILL  (4, XARRAY. YARRAY) 

CONTINUE 
CONTINUE 
REAO  (V) 

RETURN 

ENO 


SUBROUTINE  MOVEORS 
C  ORDERS. FOR 
C 


7 


ENTER  MOVEMENT  AMO  FIRE  CONTROL  ORQERS  FOR  UMTS 

Mmmqum 

.■LVJ0^2FACTNJtMAX.VMAX.VUNIT 

55Qj«WMaB0La^««*<W^»W«<an«»>l . 

Irchro? 

M  TYPE 8(200)  MTYP£  RtfOO) 


WTEB<10j.THArEH(10) 

iweoN(i6q 

ARTB(20aS.NRARTR<20a5> 
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CHARACTER'S  BFNAMEJTFNAMC 
CHARACTER*BO  LME 
CHARACTER*  1«  SHIERJMERJHCR 
CHARACTERS  BUNITMUNIT 
CHARACTERS  L1BFX2FX3FJ.1RF11BMX2MX3MJ.1RM 
CHARACTER*!  C3 

CHARACTER*!  C2.CXC4.C4Ca.C7.CS.CSlC  I0.8LANK 

MOVEMENT  ORDERS 

PM.141SB 
K3CE-0 
WRITE  r.*) 

WRITE  nUf  BLUE  or  RED.  or  QUIT 
WRITE  r.*L 

READ  r.\ERR-10)C3 
F  (Cal.-ll.EO.'BT  K3CE-1 
F  (0(1:1  lEQ.-Ri  KSCE-2 
IF (Ca|1  :lV£Q.TnQO  TO  1000 
F  (KSUEEOO)  00  TO  10 

WRITE  (*.*) 

WRITE  I1.*)  CURRENT  STATUS' 

FORMAT  (OLAHI 

F  (Olt.'llEa-BT  WRITE  {*.111  L1BM 
fHi :i{£a<m  write  hi i  lirm 
WRITE  r.T  UNIT  HFRAHCHY 
•  OBJECTIVE  SPO  AZMr 
F  (C2(1:1).EQ.S  THEN 


CENTTTV 


POSITION 


121 


KK-0 
00  130K.1J4B 


FORMAT  (1X.I3.1XA14A244<F4X!X).I3.1X.I3| 
F  (MSVSnU1.0E.il  THEN 
VRITE  (*.121)  K.BHIEf«K).BUNIT(l03XVA(K.1)ja 


WRnEg.12^K.BHIE^Ig.BUNIT(K)3XVA(K.1)JXVA(IU).BXV0<K.1). 

*  oukkli2’'  K',)' 

ENOF 

F  dOCEQjq  THEN 
READ  r.*i 
KKaO 
ENOF 

IX  CONTMUE 
C 

ELSE 
C  RED 
KK-0 

DO  140K-1-NR 

F  IIRSYSW^J.QE.I)  THEN 

WRITE  r.121)K.RHIER{!q.RUNIT(K)J«YA(K.1).RXYA(K2).RXY0(K.1). 

•  RXY(MU).IRSA(K,1LIhSA(IU) 

ENOF  * 

F  (KK.EQ20)  THEN 
READ  (V) 

NUO 

ENOF 

140  CONTINUE 
ENOF 

141  WRITE  (*,*)  ENTER  COMMAND  UNIT  (ORE  LISTS  •1-QUIT)' 

WRITE  r.T _ 

READ  (Y.ERR-UIJ  COMMAND 
F  (COMMANO.EOJ9  GO  TO  5 
F  (C0MMAN0-EQ.-1)  GO  TO  10 


142 


VmiTE  ('.VENTER  NUMBER  RANGE  OF  SUBORDINATES 
WRITE  (••[THIS ORDER  ((START SEND)  (0 0 FOR  NONET 


SUBORDINATES  TO  FOLLOW 


WRITE  (VI 
READ  C.. ERR- 142)  NSUB1 JSSUB2 
F  (NSU81.LE.0)  THEN 
NSUS1-0 
NSUB2-0 
ENDJF 

F  (NSUB2.LE.0)  THEN 


C 

ISO 


NSUBt-0 

NSUS2-0 

ENOF 

WRITE  f.T 

WRITE  r.T  MOVEMENT  TYPE" 


WRITE  i 
WRITE  hi 


T  FOLLOW  ME 


WRITE  (* 


AU.  UNITS  TURN  AT  A  PIVOT  POINT  ANO  THEN  HEAD 
'  TO  A  NEW  OBJECTIVE  WHERE  THEY  WILL  STOP' 
2-CCME  ON  LME* 

'  -  ALL  UNITS  FORM  UP  ANO  STOP  ON  A  LME  0E3CR8ED 
'  BY  A  PIVOT  POINT  ANO  LINE  AZIMUTH 

a  IN 

L  UNITS  TURN  TO  THE  NEW  AZIMUTH  ANO  PROCEED 
I  NEW  OBJECTIVE  POINT  DESCRIBED  BY  THE 
STANCE  ALONG  THAT  NEW  AZIMUTH 
iEO  CHANGE1 

L  UNITS  GIVEN  NEW  SPEED 
:4A0E 

HCLES  TAKE  UP  PREPARED  DEFENSIVE  POSITIONS' 
CH  OBSTACLES 

'- VEHICLES  ADVANCE  SLOWLY  ANO  CLEAR  OBSTACLES 
7-QUIT 


WRITE  (*, 

WRITE  * 

WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE  (V 
WRITE  *.' 

WRITE  jv 
WRITE  r.T 

REA0f*,'.ERR.1S0)  MTYPE 
WRITE  r.T. 

-  (MTYPEiE.O.OR.MTYP£.GEJ)  00  TO  IX 
(MTYPE.EQ.7)  GO  TO  S 
(MTYPE.EO.S)  CALL  DtOM 
4TYPE.EO.ei  CALL  BREECH 

C  F  (MTYPE-EQ.1)  THEN 

C  FOLLOW  ME  -  AU  UNITS  TURN  AT  THEIR  RELATIVE  PIVOT  FONTS 
C  ANO  THEN  HEAD  TO  NEW  X.Y  OBJECTIVE.  WHERE  THEY  W«X  STOP 
1  SI  WRITE  r.T  •ENTER  THE  RANGE  TO  THE  PIVOT  POINT  ON  THE  CURRENT* 
WRITE  r.T  IME  OF  ADVANCE  ANO  THE  RANGE  ANO  AZIMUTH  TO  THE 
WRITE  r-T  NEW  OBJECTIVE  PONT  FOR  THE  COMMANO  UNIT 

write  hi 

READ  r.TERR-ISI)  RANQEPRANOEOJLZO 

IFJKSDE.EQ.1)  THEN 

MTYPEBdCOMUANOUl 

CEFB(COMMAN0)-0 

ELSE 

MTYPER(COMMANO).1 
OEFR(COMMANO)^r 
ENOF 

F  (KSCE.E0.1)  THEN 


C 

c 


ELSE 

IAZ-RSA(IC0MMAN0.2) 

XWWYAJCOMMANO.1) 

YO.RXYA<  COMMAND^ 

ENOF 

AZMIHtAZ 

CALL  FDM  (AZMO.AZM) 

FIND  COMMANO  UNIT  PIVOT  POINT 


C 

C 


_ _ J  PONT 

CAU.  FOR  (AZOXZOUT) 

XO-XP.RANGEO*COS(AZOUrPV1«) 

YO-YP»RANGEO'SM{AZOUT*PII1M.) 

STORE  THIS  INFORMATION  SO  WHEN  PIVOT  POINT  IS  REACHED 

UNIT  WILL  TURN  ANO  HEAD  TO  NEW  OBJECTIVE 

IF JKSOE  Eai)  THEN 

BXYP(tCOMMAN0.1)-XP 

BXYP  COMMANO.fl.YP 

BXYO(ICOMMAN0.1)-XO 

BXYO  COMMANDS- YO 

ELSE 

RXYP(ICOMMANO,1).XP 
RXYP  ICOMMANO.fl-YP 
RXYCX  COMMANO.  I UXO 
HXYO(  COMMANDS).  YO 
ENDF 

FIND  RELATIVE  PIVOT  POINT  AZIMUTH  FOR  DETERMINING  SUBORDINATE 
UNITS  RANGE  TO  THEM  PIVOT  POINT 

BISECT  ANGLE  BETWEEN  OLD  AZIMUTH  AND  NEW  AZIMUTH  AT  PIVOT  POINT 
AZINCLH-AZIN-AZOum. 

AZBISECT-AZOUT  ♦  AZINCL 
SL0PE-TAN(AZBISECT/1M.*PI) 

B-YP-SLOPE'XP 

FOR  EACH  SUBORDINATE.  PIVOT  POMT  IS  ON  THIS  LME 
FINO  INTERSECTION  OF  CURRENT  AZIMUTH  ANO  LOCATION  WITH 
THIS  PIVOT  AZIMUTH  ANO  PIVOT  POMT 

DO  170  UNSUB1 J4SUB2 
NSKF-0 

F  (KSDE.EQ.1)  THEN 
OEFBIOM) 

MTYPEB(I).1 

XI-BXYArt.1) 

YI.BXY^lij 
IAZ.IBSA1L2) 

F^IBSYS(li)XT.1) 

lOEFRIIl-O 
MTYPEH(I).1 


NSKF.1 
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tNOf  *  ««V*<U)iT.1)  N8KS.1 
»  (NBXS.EQ.1)  00  TO  170 

FIND  EACH  UMTS'  ORIGINAL  LONGITUDINAL  DISTANCE  FROM  THE 
COMMAND  UHITXOO  on  SUBTRACT  THIS  DISTANCE  FROM  RANGE  TO 

OCLX.XVXO 
DEL  Y.  VI.  VO 

IF  (A£N.O$.3O0)  A2UHAZIN-300. 

IF  (AZKLT.oTAZMW(ZM.3n 

FIND  DISTANCE  BETWEEN  UNIT  LOCATION  AND  AZIMUTH  LINE  THROUGH 
COMMAND  UNIT 
SLOPCUTANIAZINliaai>q 
BL-YO-SLOPCl'XD 
SLOPEP»SLOPCL 
BP.VI-SLOPEP'XI 
FIND  MTERSECTION  POMT 
XINT.(BP-BLy(3LOPEL-SLOPeP) 

YINT4l*SL0PEL-XINT 
FIND  DISTANCES 
0«TL2HXINT.X1J~aHYINTYirj 
DlSTOB^ffiELX)"J«p€LY)~J 
IF  (DtSTMXT.DBflj)  THEN 
OtST«0.0 

ELSC 

DtST.(OBTIH-OtSTU)"S 

ENUfr 


SLEaSOJ  DISTO-DELY 
M.ECL270J  DtSTO-OELY 


F  (AZMEaSOJ 
IF  (AZM.EQJ70. 
IF  1AZM.EOOJ  ( 
F  6AZM.EQ.1K). 
S  (AZM.QT.I 


STO-OEU 
DtST(W-OELX 

IF  (AZM.GT.O.(UNOJ(ZINXT.n.O)  THEN 
(DELXGT.O.)  THEN 
OtSTCWOBT 

ELSE 

DISTO-CHST 

ENDS 

ENCHF 

f  (AZM.GT.n.0JINOXZMXTj70.0|  THEN 
S  (DELXGT.OJ  THEN 
OiSTO^CMST 

ELSE 

DtSTO-OIST 

ENOS 

ENDS 

S  (AZKQTJ70.0JLND.AZMXT.3n0)  THEN 
S  (DELXGT.O.)  THEN 
OSTOJOBT 

ELSE 

OISTOte-OIST 

ENOS 

ENOS 

range«ranqeo«oisto 

AZIN1-IAZ 

CALL  FOR  (AZM1XZ0UT1) 
SLOPE1.TAN(AZOUT1/in.-PI) 
B1*Y1-SLOPE1*X1 
MTERSECTION  IS  PIVOT  POMT 
XMT.<Bl-m/0LOPE-SLOPEl) 
YMT-BUSLOPErXMT 


S  (KSOE.EO.1)  THEN 

BXYP(I.1)-XMT 

BXYPKa-YMT 

XObXMT<RANQE‘COS{AZOUT/in.'PI) 

YO>YMT«RANGE‘SM(AZOUT/in*PI) 

BXYOIL1WXO 

BXYOjtjfYO 

ELSE 

RXYPfl,  IUXMT 
RXYPlliUYINT 

XO»XMT*RANGE*COS(AZOUT/in'Pt) 

YO.YMT«RANQE‘SM(AZOUT/in*PI) 

HXYOatuXO 

RXYO(ljj.YO 

ENOS 

CONTMUE 


SlMTYPEf QJ)  THEN 

COME  ON  LINE  -ALL  UNITS  FORM  UP  ANO  STOP  ON  A  LINE  DESCRIBED 
BY  THE  PIVOT  POMT  ANO  LME  AZIMUTH 

WRITE  (V)  ENTER  THE  RANGE  TO  THE  PIVOT  POINT  ON  THE  CURRENT 
WRITE  r.*l  1ME  OF  ADVANCE  ANO  AN  AZIMUTH 
WRITE  M  DESCRIBING  THE  LME  TO  FORM  UP  ON 
WRITE  M 

READ  fVXnR.17111 RANGE0XZ1MUTH 
CALL  FOW  (AZIMUTKAZOUT) 

AZIMUTHMUDUT 

FWO  THE  DISTANCE  EACH  UNIT  IS  ROM  THE  PIVOT  POINT 
FMO  NEW  POSITION  ON  THE  LME  AT  THE  SAME  DISTANCE 
TAKE  STRAIGHT  PATH  TO  THIS  POMT 
IF  (K3IOE.EQ.1)  THEN 
OEFBlCOMMANOVO 
XO»BXYA(COMMAN0.1) 

YO- BXYA(  COMM  ANO  J) 
lAZ-eSN  COMMAND  J) 


AZMO.IAZ 

CALL  FOIR  IAZMOJLZM) 

FMO  PIVOT  POMT 
XP.XO*RANGEO‘COS(AZMIin.*PI) 
YP.Y0,RANGEO‘S»NAZM/in.‘Pl) 
X3.XP«RANGE0-C0SjAZIMUTHnn.*PI) 
YJ-YP.RANG£0,SM(«IMUTHIin.*PI) 
BXYOf  COMMAND.  1HX2 
BXYO  COMMAND JJ.Y2 
ELSE 

CEFR(COMMANO)»0 
XO.RXYA<  COMMAND,  1) 
YO-RXYAjcOMMANOj) 
M-IR&I^COMMANOJ) 

CALL  FOIR  (AZMOAZM) 

FMO  PIVOT  POMT 
XP-X0.RANGE0'CO3(AZMfin.’PI) 
YP.Y(HRANGEO’SM(AZM/in.‘PI) 
X2-XP.RANGE0-CC«(AZIMunvin.-Pf| 
Y2*YP»RANGE0"SM(AZlMUTHnn.*PI) 
RXYOl  COMM  ANO.  1HX2 
RXYaCOMUANOJKY2 

TOP-Y2-YO 

BOT.X2-XO 

S  (BOT.EO.O.O)  0OT-8OT+.OQ1 
D«-ATAN(ABSrrOPyABS(BOT)nnjPI 
S  (BOT.LT.O.O)  THEN 

S  (TOP.LT.O.O)  OFWXR^m. 

S  (TOf.GT.O.O)  on.in.  ow 

ELSE 

s  (topxt.0.0)  on-sn.-on 
ENDS 

CALL  FAZ  (OIRJLZM) 

S  JKSCE.EQ.1)  THEN 
I8SAI  COMMAND, 2).  MT(AZM) 

MTYPEBdCOMMAfCW 

ELSE 

WSAj  COMM  ANO  JHMT(AZM) 

MTYPEH<  COMMA'  i.  «2 
ENOS 

DO  in  LNSU81MSU83 
NSKSM) 

IF  (KSQC.EQ.1)  THEN 
CEFBIIiM) 


CER(IH> 


sjirsyS(ij).lt.i)  nskip.i 


yirxyA<ij) 

ENOS 

S  (NSKIP.EQ.1)  00  TO  180 

FMO  EACH  UNITS  ORIGINAL  LONGITUOMAL  DISTANCE  FROM  THE 
COMMAND  UNIT  ADO  OR  SUBTRACT  THIS  DISTANCE  FROM  RANGE  TO 
PIVOT  POINT 
DCLX.X1-X0 
OELY.V1-YO 


LOCATION  ANO  AZMUTH  LME  THROUGH 


COMMAND  UNIT 
SLOPEL-TANJAZM/m-PI) 
BL-YO-SLOPEL-XO 
SLOPEP-SLOPEL 
BP.Y1-SL0PEP*X1 
FMD  MTERSECTCN  POMT 
XMT.IBP-BLyiSLOPEL-SLOPEP) 

Y INT  .BL*SLOPEL"XMT 
FMO  DISTANCES 
OISTL2.(XMT-X1)“a.fYMT.Y1)“2 
DlST02-wb£LX)**2HDtLY)**2 
S  (DlSTCaxTOlSTU)  THEN 
DlST.0.0 

ELSE 

DISTWDISTO-0ISTU)~.5 

ENOS 

S  (AZlN.EQ.n.l  OISTO-OELY 
IF  (AZIN.EQ.270J  DISTO-OELY 

s  1azin.eq.oj  disto.de  lx 
S  (AZIN.EO.in.)  OISTO--OELX 
IF  (AZIN. GT.0.0 AND. AZM.LT.n.O)  THEN 
S  (OELX.GT.OJ  THEN 
DIST0.01ST 

ELSE 

DISTO--OIST 

ENOS 

ENDS 

S  (AZIN.GT.n.0.ANOJMMXTJ70.Q)  THEN 
S  (DELXGT.O.)  THEN 
DISTO--OIST 

ELSE 

DISTO-DIST 

ENOS 

ENDS 

S  (AZIN.GTJ70.0AND.AZINXT.360.0)  THEN 
S  (DELX  GT.O.)  THEN 
DISTO-DBT 
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else 

OtSTO-OIST 

END* 

ENOF 

RANGE -RANQEO^OISTO 


C 

C 

181 


BXYO<l1).X2 

‘  vojiii-' 


-va 


YO(L!)-X2 

YO(L2)-Y2 


180 


BXYG. 

ELSE 

X2*XP*RANGE*COS(AZMulUTtV180.*PI) 
Ya.YP*flANGE-SIN(AZl»HJTH/180.*PI) 
RXYar  — 

RXYOl 
ENOF 

TOP.Y2-Y1 

0OT-X2-X1 

IF  (BOT.EQ.O.O)  BOT.BOT*.001 
D«~ATAW(AaS(TOPyA83(BOT))-180JPI 
IF  (BOT.LT&QTHEN 

f  (top.lt.0.0)  omjjsuiaa 

IF  (TOP.GT.O.O)  DIR-180.-OIR 

ELSE 

IF  (TOP.LT.0.0)  CMR-3SO.-OIR 
ENOIF 

CALL  FAZ  (DffVAZM 
FIK3IOE.EQ.il  THEN 
W> 

Whbs1^ 

ENOIF 

CONT84UE 


ENOIF 

F  (MTYPE.EQ.3)  THEN 

TURN  -  ALL  UNITS  TURN  TO  THE  NEW  AZIMUTH  AM)  PROCEED  TO  NEW 
OBJECTIVE  POINT  DESCRIBED  BY  THE  DISTANCE  ALONG  THAT  NEW  AZIMUTH 
WRITE  (V)  ‘ENTER  NEW  AZIMUTH  ANO  RANGE  TO  OBJECTIVE  FOR- 
- - COMMAND  UNIT 


AZIMUTH. RANGE 


WRITE  (VTOt 
WRITE  C.T_ 

READ  fV£RR.1S1)Ai 
CALL  F6m  (AZIMUTHAZOUT) 
F  (KSCE.E0.1)  THEN 
OEPBIICOMMANDt-O 
XUBXYAIICOMMANO.1 


YI.8XYAilCOMMANO.2j 
X2-XnRANG£‘COS<A2mr/180.-pl) 
Y2-YURANGE‘SIN<XZOUT/180.-PI) 

BXYCX  COMMAND,  1VX2 
BXY0IC0MMAN0i).Y2 

IBSjyCOMMAND^)-INT(AZlMUTH) 

MTyPeB(C0MMaRd)-3 

ELSE 

IDEFR(COMMANOW) 

X1.RXYAICOMUAND.1) 

YI-RXYJUICOMMANDij 

X2.X1  ♦RANGE  *CO  SI  AroUT/180.*PI) 

Y2.Y1+RANGE*SIN(AZOUT/180.*PI) 

RXYOl  COMMANO.fl.X2 
RXYOl  COMMAND  .2^  Y2 
IRSAI  COMMANDS).  INT(AZ1ML(TH) 

MTYP£R(COMMAND)*3 

ENOF 

OO  190  L.NSU81.NSU82 
F  (K3I0E.E0.1)  THEN 
OEFB|IH) 

F  (IBSYS(L2).GE.1)  THEN 

X1.BXYAII.il 

Y1.BXYA(IJR 

X2-XWRANGE‘COS(AZOUT/180.'PI) 

Y2.Y1  ♦RANGE -S  IN| AZOUTn  80.*PI) 

BXY0II.1UX2 

BXY0jli^Y2 

I8SAIL2)-INT(  AZIMUTH) 

MTYPEBID.3 

ENOF 

ELSE 

IDEFRIIH) 

F  <IRSYS(L2).G£.1)  THEN 

X14TXYAII.1) 

YIJUYAjia 

X2-X1  ♦RANGE  *COS(AZOUT/180.*PI) 

Y2.YURANGE*SIN|AZOUTl18a*PI) 

RXY0IL1).X2 

RXY0jli^Y2 

STSML2).MT(AZIMUTH) 

MTYPER(l>-3 

ENOF 

ENOF 

180  CONTINUE 
ENOF 

C 

F  IMTYPEEQA)  THEN 
C  SPEED  CHANGE 

181  WRITE  (V)  -ENTER  DESIRED  SPEED 
WRITE  r.S 

READ  C>£HR-1»1)  SPEED 


F  (SPEED.LT.O.O)  00  TO  191 
IF  iKSIOEJEai)  THEN 

C  TO  ACCOUNT  FOR  ACCELERATION  PARAMETERS  OF  VEHICLE, 

C  THIS  DESIRED  SPEED  IS  CONTINUOUSLY  MATCHED  AGAINST  fHE 
C  MOBILITY  PARAMETERS  ENTERED  FOR  THIS  SYSTEM  ANO  AN  ACTUAL 
C  SPEED  IS  DETERMINED  FOR  EACH  TIME  STEP. 

C  VARIABLES  SPOBI200)  ANO  ISPDR(20q  ARE  THE  ACTUAL  SPEEOS 
F  (MBREECHICOMMAND.1J.Eai)  SPEEDS. 

BSA|  COMMAND,  1>INT(SPEE0) 

F  (IBAVLOCOMMANDVEQ.O)  IBSAJCOMMANO.tH) 

ID6FB{KX)MMAN0)-0 


MTYPEB(  COMMAND)  .4 
FgPS6D.LE.aO)  MODEMS!  COM  MAN  D)-3 

cIfrocommanow) 

F  (MBREECHtCOMMANOZLEa  1)  i 
«SA(  COMMAND, ll-INTISPEEDS 
F  (IRAVUCOMMANOVEO.O)  IRSA(K 


_ _ _ _ _ MC0MMAND.1H) 

mtypEr(COmmaNd)^ 

FjSKEDLE.O.O)  MOuEMR|COMMANO).3 

DO  200  UNSUB1NSUB2 
IF  (KSIOE.Eai)  THEN 
OEFBOH) 

F  (MBREECHf I,  l^.EQ.  1)  SPEEDS. 


_  ,.1H> 

Vi  MTYPEBIIM 

F  (SPEED.LE.0.0)  MOOEMS(l>-3 
ENOF 

ELSE 

IDEFRIIH) 

F  (MBhEECH(I>2).EQ.1)  SPEEDS. 

F  (IRSYS(U.GE.1)  THEN 
nSA(Liy.lNT(SPEEP! 

F  (IRAVl(n  .tO.O)  IRSA(I.1).0 
C  MTYPER(IM 

F  (SPEED.LE.0.0)  MODEMR(l)-3 
ENOF 
ENOF 

200  CONTINUE 
ENOF 

F  (MTYPE.E0.5)  GO  TO  10 
GOTO  ISO 

1000  CONTINUE 
RETURN 
END 


C 

C 

C 


SUBROUTINE  FDIR  (AZINAZOUT) 

TAKES  AZIMUTH  ANGLE  IN  AND  CONVERTS  TO  CARTESIAN  ANGLE  OUT 
AZOUT-AZIIMO. 

IFIAZOUTXT.O.O)  AZOUT-AZOUT»360. 

RETURN 

END 


SUBROUTINE  FAZ  (AZOUTAZ1N) 

TAKES  CARTESIAN  ANGLE  OUT  ANO  GIVES  AZIMUTH  ANGLE  IN 

AZtN-JAZGUT-90.) 

IFIAZIN.lTD.O)  AZIN.AZFM380. 

RETURN 

END 


SUBROUTINE  BATTLE2 
BATTLE. FOR 

MOVE  ANO  SHOOT  UNITS 

CYCLES  THROUGH  SIXTY  MOVEMENT  AND  SHOOTING  TIME  STEPS 
THEN  RETURNS  TO  COMMANO  LEVEL 


COMMON/GRIONX.NY.SCALE.SCFACT.PRFACT.ZFACT 
C  COM  MONTOUR&OC  1  (1100),Y1(1100),X2(1 100).  Y2(1 100),  C(1 1009. 

C  8  NC1 1 5LNCOU 1 5L JCON 

COMMON/ZOOMJBLX,BLYD(LEN^FACTN,XMAX.YMAX.YUNIT 

COMMON/FORCE/BH1ER(200).RHIER(200).BUNIT(200LRUNIT(200). 

8  H3SYSr200,a.lRSYS(200.2).L1BF,l2F.L3f\L1RF.NB,NR 
COMMONiMOVEBXYA(200j)JTXYA(200^).IBSA(200^).IRSA(200^). 

8  L1BM.L2M.L3M.L1RM 

COMMONWEAPONSJNBF,NRF1BFNAME(10).RFNAME(10).NWBI10),NWR(10), 
8  NRWBI1 0 J),NRWR(  10.3LR8(180),RR(180),PKB(1 80,20). PKR(1  Soil), 

8  NRNDB(30),NRNDH(30),TEMAXB(30)JEMAXR(30).TEMLN8(30), 

8  TEMINP  X-,ACOB(10.5)>CQR(10.5).SFK>B(lb|inCHR(Td). 

8  MILBI1 0,3), MHRI1 0,3) 

COMM0NiSHOTSiEMBffl00.3),NSHOTB(200,3),NSHOTR«00,3) 

COM  MON/MANEUVE  FVBXYO 1200 X)JTXYOI200^).MTYPEB(200)>J  TYPE  R(200) 
8  ,BXYP(200^.RXYP(200^ISTO(200),lSPOFl(200i  , 

COMMOI%Am.EjiTIME.IOTIME,rrdTB®»i),rTGTR(200i1. 

8  PKTB(200a.PKTR(200i).IKILLB<200)JKILLR(200).IAMR 


8  IAMB( 200) 

COMMON)MOOESIMODEMB(200),MOOEMR(200),TCMM 
8  TCMMR(200.3).TTMMB(200.3).TTMMR(200.i).MO0EFB| 


.TCMMBgOOJ). 

(200), 


10 


oooooooo  ooooo 


4  MOOEFR<200),KEVA 
4  TTFM8(»ft«JTFkB 
4  TRMF^200)JR0ESa^ 
COMMONlFtRE/IBPRM 

4  fisECONOaaoA.wni... . . 

OOMMON/MASKWVMSKMOO^ 
COMMON/PUFF  S/IWSPEED.I1 

4  «usyi,ous| . m-  m 

4  IART1.IAMM 
4  TASMKM 
4  KARTW 


IIDUST.EXPUFF.DTPUFF.TENOPUFF, 


MKMX, 


COMMON*  DSMKartSGERASE,PSGERAS£(400.2].ASGeHASE(«001 
COMMONIEENPUFFSHEERASELpTERASE  (2400.3) 

COMMON*  DPUFFS/IDERASE.PTDRASEjl2»00.3) 

COMMON/TRACKINGlBOREB(10.3).BQRER(10.3).lRNGB(X,4),IRNGR(X,4), 
4  ITRKBI10.4).RRKR(10.4).TOFBnd.3).TOFRf10,3) 

COMMON/ ALIVE/NBA,NRA,BTHR  EAT, RTWRfcAT 
COMMON*nOTY/KPn«(200.im^RRffl£0,im 


l(10.3).GRAdEB<200).aflAOER<200| 

_  _ _ E.NEMW,NEMWN(3),EWP(3.2).EG<5), 

4  ELSYS(2^.MCOEB|^.i^J^(2X^^EM(2^ 


COMMON/AC£L/ACEL3(10,5). 

COMMON/EMENERGY/N8LU 


CQMMQN/TURflET/AZTB(200),AZTR(200),TRA7EB(10),7RATER(10) 
COMMON/S  IMAP  3/ IStM8(200.ISIMR(200) 
COMMON/08SCURE/NGRENB(2D02).NGRENR<200.2).BESMK<200). 

4  IRESMK/200! 

(»MMON/E8MOKE/TESMK<200> 

COMMONCOOKERSAICOQiCXYCOOK(400,2).PBURN8(10),PBURNR(10). 

4  KBURNB<200).KBURNR(200) 

TOMMONMNE3JNMjNES;XYMJNE(10a2),WLMlNE(l00^).NAZMINE(l00.3) 

B,MINEON(100) 

(.(TLB.ITLR 

„  ....  .  .5),XYFUB(2I 

4  XYFURI2002).MILABI200.101,MILAR(200.10) 

COMMON/ ARTY  OAT*/ BFA^NRF  A,  BANAME(1Q).RANAME(10),NAMB<  10). NAM  R(1 


COMMON/M  NEKLL  S/M  INEi 
COMM  ON/M  INEBREECH/MI 


COMMON/ ARTTGT/ARTGTB(200 2)  ARTGTR  (200.2), ITL 
COMMON/AMISH/NFMIS(2),MFUB(2cio,5),MFUR(200.5),XYFUB(200,2). 


4  ,NAMMOB(10.S).NAMMOfl(10.5).IATYPB(10.5),IATYPR(10.5) 

4  ,  IAFAFB(10,5).1AFAFRJ  10,5). 1ARNGB(  10.5.5),  (ARNGRII  0,5, 5), 
4  ARTPKBj20.lO.S)ART7KRSo.10.5).IABTUBE(10).IARTUB — 
4  ISCOOTB(10.4),ISCOOTr)i0.4) 


UBE(IO). 


800 

C 


OTB(10.4),ISCOOTRllO,4) 

COMMON/AAVAIL/l8AVL/200),IRAVL(200).NRAflTB(200,5|.NRAflTR(200.5) 
COMMON/SCOOT/ITSC(200.2).1TAVL(200.2) 

INTEGER  ARTGTBARTGTR 
DIMENSION  BACEL  (200) 

CHARACTER'S  8FNAMEJVNAME.BANAME.RANAME 
CHARACTER-SOUNE 
CHARACTER'14  BHIER.RHER.IHIER 
CHARACTER'S*  BUNIT.RUNIT 

CHARACTER'S)  L1BFA2F.L3Fi.1RFi.1BM.L2M.L3M.L1RM 
CHARACTER' 1  C2 

CHARACTER' 1  C2.C3,C4,C5.C8,C7.C8.C8.C10, BLANK 
WRITE  OTf 

WRITE  (*.•)  (RB(ISR),tSR.1.38) 

WRITE  M  (RR(ISR),ISR- 1 ,36) 

PU3.14158 

OT-IOTIME 

ITLB-0 

ITLR-0 

CALL  LIVING 

INITIALIZE  MOVEMENT  AND  FIRE  MODES  FOR  THIS  CYCLE 

TCMMB  CYCLE  TIME  W  EACH  MANEUVER  MOOE  FOR  BLUE  SYSTEM 
TCMMR  CYCLE  TIME  IN  EACH  MANEUVER  MOOE  FOR  RED  SYSTEM 
TCFMB  CYCLE  TIME  IN  EACH  FIRE  MODE  FOR  BLUE  SYSTEM 
TCFMH  CYCLE  TIME  IN  EACH  FIRE  MOOE  FOR  RED  SYSTEM 

00  800  MATS 

TCMMBIL11-0.0 

TCMMStfi-OO 

TCMMB(I,3)-0.0 
TCFMB(I,1UO.O 
TCFMB  U 
TCFMBIU, 

TCFMBI.4L 
TCFMBLSfc 
TCFMBlf 
TCFMB  1.7, 

TCFMB  LBl. 

TCFMB  1.8^ 

TEM(l.1)-0.0 

TEM(I2)-00 
TESMK(l)-0.0 
IKILLBID-O 
CONTINUE 

00  850  HI, NR 
TCMMR(L1)-0.0 
TCMUHM-0.0 
TCMMR(l.3)-0.0 
TCFMR(U)-0.0 
TCFMRjl2i  ‘ 

TCFMRI.3 
TCFMR(U). 

TCFMR  l,5t 
TCFMR 


CAU  PLOTS  (0.1.0) 

C  ZOOM  TO  ACTIVE  GRD 
CALL  BZOOM 
C  PLOT  CONTOURS 

IF  (ITER.EQ.1)  CAU  BCONT  (0) 

C  PLOT  GRIO 
CALL  GR  02 
CALL  PLOTMNES 
TGREN-DTPUFF«ITIME 
TPUFF.OTPUFF»ITlME 

DO  1000  CYCLE- 1.80 

C  INIT1ALZE  ACTIVE  PROTECTION  SIMULTANEITY  CHECK 
DO  851  ISIM.1200 
ISIM8(ISIM}«0 
851  lSIMR(ISIM)-0 

C  PLOT  CURRENT  UNIT  POSITIONS 
CALL  UNITS 

C  SAVE  THESE  POSITIONS  TO  ERASE  LATER 
CALLOLQPOS 
C 

IF  (ITIME.GE.TPUFF)  THEN 
ISGERASE-0 
IEERASE-0 
ID  ERASE-0 

C  PLOT  DUST  CLOUDS 

C  WRITE  r,*)  'NOUST  '.NDUST 

C  WRITE  f.l  WENOLNENG 

IF  (IDUST .Eu.1  AND.NDUST.QT.O)  CALL  POUST 
C  PLOT  ENGINE  SMOKE  CLOUDS 
IF  (NENG.GT.0)  CAU  PENG 
C  PLOT  SMOKE  GRENADE  CURTAINS 
IF  (NSMK.GT.cn  CALL  PSMKCURTAINS 
C  PLOT  ARTILLERY  SMOKE  CURTAINS 
IFjNAflT.GT.0)  CAU  PARTSMK 

E  F  (ITIME.GE.TGREN)  THEN 
C  FIRE  SMOKE  GRENADES  AS  ORDERED 
CALL  GRENADES 
TGREN.I.E8 
ENOIF 

RESOLVE  ARTILLERY  INDIRECT  FIRE  MISSIONS 
CAU  FIREMISH  (ITIME.IDTIME) 

EXECUTE  MOVEMENT  ORDERS 

BLUE 

DO  IX  K-1.NB 

CHECK  TO  SEE  F  THIS  UNIT  IS  KLLED 
F  (IBSYS(K,2).EQ.O)  GO  TO  IX 

ACCUMULATE  CYCLE  TIME  FOR  ENGINE  SMOKE  IF  TURNED  ON 
F  (IBESMK(K).EQ.1)  TESMK(K)-TESMK(K)»DT 


REN 


CHECK  TO  SEE  F  THIS  IS  AN  ARTILLERY  UNIT  AND  SHOULD  BEGIN 
SCOOTING 
KASYS-IBSYS(K.1) 

F  (KASYS.GT.10)  THE 
KASYS-KASYS-10 
F  (ISCOOTB(KASYS,1).EQ.1)  THEN 
THIS  UNIT  SHOOTS  AND  SCOOTS 
F  (IBAVL(K).EQ.O)  THEN 

THIS  UNIT  IS  CURRENTLY  INVOLVED  IN  A  FIRE  MISSION 
F  (1TIME.GE.ITSC(K.1))  THEN 
ITS  TIME  TO  SCOOT 
IBAVL(K)-1 
IBSA(K.1}-50 

DEFINE  NEW  MOVEMENT  OBJECTIVE  BASED  ON  SCOOT  DISTANCE 
AZIMUTB-REAL(IBSA(K.2)) 

CAU  FDIR  (AZIMUTRAtfOim 
OBJR-REAL(ISCOOTB(KASYS,3))/1000. 

Xl-BXYA(K,1) 

Y1-8XYA/K2) 

X2-X1  ♦OBJR1COS(AZOUT/1  M.*PI) 

Y2.  Y1  ♦OBJR'SIN(AZOUT/1  W.'PI) 

BXYO(K,1)-X2 

BXYOK2).Y2 

enof 

ENDIF 

F  (IBAVLIKLEO.-II  THEN 

THIS  UNR  IS  CURRENTLY  SCOOTING 

SEE  F  IT  IS  TIME  TO  UN-SCOOT  IT  AND  MAKE  IT  AVAILABLE  FOR 
AFIRE  MISSION 

IF  (ITIME.GE.ITAVL(K,1))  «AVL(K)-1 
ENDIF 

ELSE 

THIS  ARTILLERY  UNIT  DOES  NOT  SCOOT 

SEE  F  IT  IS  INVOLVED  IN  A  FIRE  MISSION  AND  IS  NOW  TIME  TO 

MAKE  AVAILABLE  AGAIN 


1  1 


F  (JBAVLQQ.EQ.gt  THEN 

THIS  UNIT  IS  CURRENTLY  INVOLVED  IN  A  FIRE  MISSION 
SEE  F  IT  IS  TIME  TO  MAKE  IT  AVAILABLE  AGAIN 
FjjjTIWE.GE  !TAVL(K.1 ))  IBAVL(K).1 

ENDF 

ENOF 

UPDATE  TERRAIN  QRAOE  FOR  THIS  VEHICLE 
KSIOE-t 

CALL  GRADE  (KSOEJQ 


Cl 

c 


ROan.(^BXYA(K.I)^XYP(K.1))“2*<BXYA<IL2)-aXYP(Ki)r2r.5 

OELPOS-(ISPDB(K)*DT  -ARATE/2.  ‘DT*DTV3600. 

baton  mowing,  awaluata  mlnaflakk 
F  (NMINES.GE.lANO.OELPOS.GT.O.g)  THEN 
CALL  MINEFIELD  II.K.OELPOS.AZOUT.INNOW.MNEXT) 

F  (INNOW.NE.O.OR INNEXT .NE.O)  THEN 

IN  OR  ENTERING  A  MINEFIELD,  DOE8  HE  KNOW  IT? 

IN  KNOW  *0 
NXKNOW-O 


BACEUKHXO 

C  COMPARE  DESIRED  SPEED  AGAINST  ACTUAL  SPEED  ON  THIS  GRADE 
C  ANO  DETERMINE  CURRENT  ACCELERATION 

CALL  FINOACEL  (KSIOEJCARATE) 

BACB4KMRATE 

C  CHECK  ACCELERATION  ANO  SELECT  MANEUVER  MODE 
F  (ARATE.EQ.0.0)  MOOEM3flQ-1 
C  VEHICLE  DRIVES  AT  CURRENT  SPEED 
F  (ARATE.LEO.OAND.lSPDe(K).EQ.OI  THEN 
C  VEHICLE  IS  STOPPED  ANO  HAS  NO  DESIRE  TO  MOVE 
MOOEMBQQ-3 
ABATE -0J3 
EN04F 

F  (ARATE.LTD.OJWD.I8SA/K.1JNE.O)  THEN 
C  DECELERATE  ACCORDINGLY 
MOOEMBIKt-l 
ENDF 

F  (ARATE.LT.O.OJLNO.IBSA(K.  I1.EQ.O)  THEN 
C  STOP  VEHICLE 
UODEMB(K}-3 
ISPDB(K)-BSA(K.1) 

ARATE-0.0 
ENOF 

FMflATE.GT.Oq)  MOOEMB(K).2 
C  ACCELERATE  ACCORDINGLY 

C  INCREASE  CYCLE  TIME  IN  THIS  MODE 

TCMM8(KJMOOEMB<K))-TCMMB(ICMOOEMB(K))+OT 

F  (MTYPEBflQ.NE.lt  THEN 

C  ALL  OF  THESE  MOVEMENT  TYPES  SIMPLY  INVOLVE  CONTINUING  IN 
C  CURRENT  DIRECTION  UNTIL  OBJECTIVE  IS  REACHED 
AZIN.BSA0U1 
CALL  FOIR  (AZViAZOUT) 

C  CHECK  CURRENT  DISTANCE  TO  OBJECTIVE 

DELPOS-(lSPD0(K)*DT+ARATEI2.aDT*DTy36OO. 

Cl 

C  btfotv  moving,  Mluii  irtrafltUi 

I f  (NM INES.GE.  1  -ANO.OELPOS.QT.O.g  THEN 
CALL  MINEFIELD  (LILDELPOS.AZCXJiJNNOW.INNEXT) 

F  (INNOW.NE.O.OR.  INN  EXT. NE.O)  THEN 
C  IN  OR  ENTERING  A  MINEFIELD,  DOES  HE  KNOW  IT? 

INKNOW-O 
NxknOWwQ 

E.OMNOHAZMINEl  INNOW.3l.EO.11  MKNOW-I 

1 

F  (MBREECHIK.11.EaO)  THEN 
C  STOP  AND  AWAIT  ORDERS,  YOU'RE  IN  OR  GOING  INTO  A  KNOWN  MINEFIELD 
OELPOS-O.O 
ARATE-0.0 
ISPOBQQ-O 
M00EMBHQ.3 

F  (MBREECH(K.1).EQ.-1I 

A  CALL  MINEKILL  (KSlDtK.INNOW.INNEXT.DELPOS) 

ELSE 

C  YOU'RE  MOVING  THROUGH  A  MINEFIELD  ANO  DONT  KNOW  IT 
C  OR  YOU'RE  BREECHING  IT. 

C  EVALUATE  PROBABILITY  OF  BEING  KILLEO 

F  (MBREECH(K,1).NE.1) 

«  CALL  MINEKILL  (KSIDE.K.INNOW.INNEXT.DELPOS) 

ENDF 
ENOF 


Cl 


F  (MBREECHIK.1l.E0.gi  THEN 

STOP  ANO  AWAIT  ORDERS.  YOU'RE  M  OR  GOING  MTO  A  KNOWN  MINEFIELD 
DEIPOS-0.0 
ABATE -0.0 
BPDBIIQ-0 
MODEMB(K)-3 

F  (MBREECH(K.I).EQ.-I) 

A  CALL  MINEKILL  (KSIOE.K.INNOW.INNEXTX)ELPOS) 

ELSE 

YOl/RE  MOVING  THROUGH  A  MINEFIELD  ANO  DON'T  KNOW  IT 
OR  YOLTRE  BREECHING  IT. 

EVALUATE  PROBABILITY  OF  BEING  KILLEO 
F  (MBREECH(K.I).NE.I) 

A  CALL  MINEKt 

ENOIF 
ENDF 
ENOF 


CALL  MINERAL  (1.K.INNOW.INNEXT.DELPOS) 


C  NEW  DISTANCE  TO  PIVOT  POINT 
U2-((BXYAIK.1)*BXYP(K,  1))**2-(BXYA(IC2)-BXYP(IC2t)**2)**.S 
THIS  DISTANCE  HAS  GOTTEN  BIGGER. THEN  PIVOT  POINT  HAS  JUST 


BXYAIK,1)-BXYAIK.1I-OELPOS'COS(AZOUT'PII180J 
BXYAIlC2).BXYA(l<2)-OELPOS-SIN(AZOUT*PViaO.) 

C  CHANGE  SPEED 

tSPOB(K)-lSPOBIKUARATE'DT 

C  CHECK  NT" - 

R0BJ2- 

C  F  THIL _ 

C  BEEN  PASSED.  TURN  VEHICLE 
IF  (R0BJ2.GE.R0 BJ1)  THEN 
MTYPEBIIQ-0 
X2-BXY0(K.1) 

Y2.BXYOtK.2j 

X1-8XYA0Q1I 

Y1-BXYA(iL2) 

T0P-Y2-Y1 

BOT-X2-X1 

F  (BOT.EQ.O.O)  BOT-BOT..001 
DIR-ATANMBS(TOPyABS(BOTt)*1tOJPI 
IF  (BOTXT.O.O)  THEN 

F  (TOP.LT.O.O)  DtfVCHR.IBO. 

F  (T0P.OT  S.d)  DIR.10O.-OIR 

ELSE 

F^OPXTjOD)  DIR-380.OIR 
AZOUT-OIR 

CALL  FAZIAZOUT AZIN) 
lAZ-INTJAZIN) 

I8SA(K2)-IAZ 

ENDF 

ENOF 

C  SET  TURRET  POSITION  F  STILL  M  SURVEILLANCE  MODE 
F  (M00EFBIK).E0.7>  AZTB(K)-I8SA(IC2) 

130  CONTINUE 
C 

C  RED 

DO  140  K-1.NR 

C  CHECK  TO  SEE  F  THIS  UNIT  IS  KILLED 
F  (IRSYS(K2)  EQ.0)  GO  TO  140 


Cl 


BXYA(K.1)-BXYA(K.1I-06LPOS'<XS(AZOUT'PL180.) 

BXYA^2)»8XYyL2)*OELr08*SIN<AZDUTrPII160.) 


BPOBQQ.ISPOB(IQ*ARATE*OT 
C  CHECK  NEW  DISTANCE  TO  OBJECTIVE 

RQ6U2-((BXYA(K.IFBXYO(K.1ir‘2<(BXYA(IL21^XYOfK  211**21  **.5 
C  F  THIS  DISTANCE  HAS  GOTTEN  BIGGER  THEN  OBJECTIVE  HAS  JUST 
C  BEEN  PASSED.  STOP  VEHICLE 
F  (R0BJ2.QE.R0BJ1)  THEN 
IBSA(K.1H> 

ISPOWKW) 

M00EMB(K)-3 

ENOF 

ELSE 

C  FOLLOW-ME  MOVEMENT  TYPE,  CHECK  TO  SEE  IF  PIVOT  POINT  IS 
C  NOW  REACHED.  F  REACHED,  CHANGE  MOVEMENT  TYPE  ANO  AZIMUTH 
C  AND  OBJECTIVE 
AZIN- IBS  A(K2t 
CALL  FDIR  MZtNAZDUT) 

C  CHECK  CURRENT  DISTANCE  TO  PIVOT  POINT 


CHECK  TO  SEE  F  THIS  IS  AN  ARTILLERY  UNIT  ANO  SHOULD  BEGIN 
SCOOTING 
KASYS-lftSYS(K.1I 
F  (KASYS.GT.10)  THEN 
KASYS-KASYS-10 
F  (ISCOOTR(KASYS,1J.E0.11  THEN 
THIS  UNIT  SHOOTS  ANO  SCOOTS 
F  (IRAVLIKLEQ.O)  THEN 

THIS  UNfT  IS  CURRENTLY  INVOLVED  IN  A  FIRE  MISSION 
F  (ITIME.GE.rrsCIK.2j)  THEN 
ITS  TIME  TO  SCOOT 
WAVLIK1-1 
tflSAtK.11.S0 

OEFINE  NEW  MOVEMENT  OBJECTIVE  BASED  ON  SCOOT  OISTANCE 
AZIMUTH-REAL(IRSA|K21) 

CALL  FDIR  (AZIMUTH .AGOUTI 
OBJR-REAL(ISCOOTR(KASYS.3)yiOOO. 

X1-RXYAQO) 

Y1-RXYAIK2) 

X2.XUOeJR‘COS(AZOUT/iaO.*PI) 

Y2-YU0BJR‘SIN(AZ0UT/180.*PI) 

RXYqK.11.X2 

RXY0(K2i-Y2 

ENDF 

ENOF 

F  (lfUVLQQ.E0.-1)  THEN 
THIS  UNIT  IS  CURRENTLY  SCOOTING 

SEE  F  IT  IS  TIME  TO  UN-SCOOT  IT  ANO  MAKE  IT  AVAILABLE  FOR 
A  FIRE  MISSION 
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no  no  no  o  no  o  o  oq  o  o  oo  o  ooo 


FjmMc.i 

ENOF 


.GE.rrAVLfKJ))  BAVL(K)-t 


ELSE 


c 

c 

c 

c 

c 


THIS  ARTUIRVUNrr  DOES  NOT  SCOOT 

SEE  If  ITS  INVOLVED  IN  AFIRE  MISSION  ANO  IS  NOW  TIME  TO 

MAKE  AVAILABLE  AGAIN 

F  JBAVLflCLEO.0)  THEN 

THIS  UNIT  IS  CURRENTLY  WVO. . . . 

SEE  F  IT  IS  TIME  TO  MAKE  IT  AVALABLE  AGAIN 


iuN^acd^N^.v  MVOLVED  M  A  FBE  MISSION 

‘  f  IT  IS  TIME  TO  MAKE  IT  AVALASLE  / - 

e>F^TIME.QE.ITAVL(IU))  BAVL(K).1 

enof 

ENOF 

UPDATE  TERRAM  GRADE  FOR  THIS  VEHICLE 
KSOE-2 

CALL  GRADE  (KSIOEJQ 

COMPARE  DESIRED  SPEEO  AGAINST  ACTUAL  SPEED  ON  THIS  GRADE 
ANO  DETERMINE  CURRENT  ACCELERATION 
CALL  FWOACEL  (KSDE  JLARATE) 

CHECK  ACCELERATION  AND  SELECT  MANEUVER  MODE 
IF  (ARATE.EQ.0.0)  MODEMRIKbl 
VEHICLE  DRIVES  AT  CURRENT  SPEED 
IF  (ARATEL£.aaANO.ISPDR(K).EQ.m  THEN 
VEHICLE  S  STOPPED  ANO  HAS  NO  OESIRE  TO  MOVE 


_  _ J  STOPPED  ANO 

MOOEMR(K>^ 

ARATE-0.0 

ENOiF 

F  (AflATELTAOLANO.WSA<K.1).NEJ3)  THEN 
DECELERATE  ACCORDINGLY 
MODEMROQ-I 
END#- 

IF  (ARATELTAOANa*ISA(K.1)EQ.O)  THEN 
STOP  VEHICLE 
MODEMR(K)-3 
- ^  1) 


ARA\ 

ENOIF 

f  (ARATE.GT.aqi  MOOEMRQQ-2 
ACCELERATE  ACCORDINGLY 

MCREASE  CYCLE  TWE  IN  THIS  MODE 
TCMMfl<KJl4O0EMR<K))-TCMMR<K,MOOEMR<K))*OT 

IF  (MTYPERflQNE.1)  THEN 

ALL  OF  THESE  MOVEMENT  TYPES  SIMPLY  INVOLVE  CONTINUING  W 
CURRENT  DIRECTION  UNTIL  OBJECTIVE  IS  REACHED 
AZM-nsAoca 
CAlL  FOB  JAmAZOUT) 

CHECK  CURRENT  OlSTANCE  TO  OBJECTIVE 
ROUU<^A(K.«)4U(VO(K.1))^NRXYA(IC2>40CYO(Kj))~2)~.S 

DELPOS^ISPOR(K)*OT«ARATE/2.*OT*OTV3800. 


T(N&5lES.GE.1>NO.DELPOS.GT.0.q)  THEN 
CALL  MINEFIELD  CLK.OELPOS,AZOUTjWNOW.INNEXT) 
FJWNOW.NE.O.OR.WNEXT.NE.O)  THEN 
IN  OR  ENTERING  A  MINEFIELD.  DOES  HE  KNOW  IT7 
INKNOW-O 
NXKNOW-O 

f  I  INNOW ,NE  .O.ANO.NAZM  IN  E(  INNOW, 3)  .EQ .  1 )  INKNOW.1 
F  (MNEXTJCALANO.NAZMSCONNEXfil.EO.1)  NXKNOW.1 
- - - - THEN 


STOP 


DELPOS-OO 
ARATE-0.0 
0-0 


IN  OR  GOING  WTO  A  KNOWN  MINEFIELD 


E^r1- 

F  (MBREECH0C2)£a.-1l 

CALL  MINEKILL  (KSIOEJL  WNOW. WNEXT.DELPOS) 

YOU'RE  MOVING  THROUGH  A  MINEFIELD  ANO  DON'T  KNOW  IT 
EVALUATE  PROBABILITY  OF  BEING  KILLED 
F  (MBREECH(IC2)-NE.l) 

CALL  MINEKILL  (2JO 
ENDF 
ENOF 
ENDF 


.  CLK.WNOW.WNEXTCELPOS) 


RXYA/K,  D-RXYAIK.  1HDELPOS‘COS(AZOUT*PV1 80.) 
RXYA0C2)-RXYA(IC2)+LXiLro9*SIN(A2QUT  yTlBO.) 

ISPDRIiqJwaVKUARATE-OT 
CHECK  NEW  DISTANCE  TO  OBJECTIVE 
108ja«<(RXV AIK, WWOTK.I jrSHRXY All  I 
F  THIS  DISTANCE  HAS  GOTTENBiOGER,  1 
BEEN  PASSED.  STOP  VEHICLE 
F  (R06J2.GE.R0BJI)  THEN 
B  - 
Ml 

ENOF 

ELSE 

FOU.OW-ME  MOVEMENT  TYPE.  CHECK  TO  SEE  IF  PIVOT  POINT  IS 
NOW  REACHED.  F  REACHED.  CHANGE  MOVEMENT  TYPE  AND  AZIMUTH 


ANO  OBJECTIVE 
AZIN-BSA(IL» 

CALL  FOB  (AZWAZOUT) 

CHECK  CURRENT  DISTANCE  TO  PIVOT  POWT 
ROBJ1-((pyA(K,tHUfVP(K.1))'-2HRXVA(K^RXVP(ILa)‘*2)"^ 


F  (NMWEs!3:.T!aNO.OELPOS.GT.O.O)  then 

CALL  MINEFIELD  (2. K.DELPOS.AZOUT.!NNOW,NNE XT) 

F  ( INNOW  .NE.O.OR.  INN  EXT.NE.OITHEN 

IN  OR  ENTERING  A  MINEFIELD,  DOES  HE  KNOW  ITT 
WKNOW-O 
NXKNOW-O 

F  (INNOW.NEO.AAO.NAZVWE(WNOW,3).E0.1)  INK  NOW- 1 
F  ( WNE  XT,  NE.O-ANO.NAZMINE(IN  NEXT, 31.EQ.il  NXKNOW-1 
IF  (INKNOW.EQ.1  .OR.NXKNOW.EQ.1)  THEN 
F  (MBREECH(»C2).EQ.O)  THEN 

STOP  ANO  AWAIT  OROERS,  YOLTRE  IN  OR  GOING  WTO  A  KNOWN  MINEFIELD 
OELPOS-O.O 
ARATE-0.0 
ISP0R?K)-0 
MODEMROO-3 
IRS^K.1M> 

F  (MBREECH(IL2).EO.-l) 

k  CALL  MINEKILL  (KSOEJCWNOW.WNEXTXIELPOS) 

ELSE 

YOU'RE  MOVING  THROUGH  A  MWEFELD  ANO  DONT  KNOW  IT 
EVALUATE  PROBABILITY  OF  BEWG  KflLEO 

EMXF 
ENDF 
ENDF 


KLL  (2XWNOW.WNEXTC6LPOS) 


CHECK  NEW 
ROBJ2-I 

FTHI!  _ 

BEEN  PASSED,  TURN  VEHICLE 
F  (ROBJ2.GE.&3BJ1)  THEN 


'K)*OT*ARATE/2.’OT'OT)G80a 

.  DELPOS-COS(A2OUrPV180.) 

DELPOS-SW(AZOUT*PV180.) 

,  ARATE-DT 
ANCE  TO  PIVOT  POWT 


J2-((RXYA(K.lt-RXYP(K.1|)"2HRXVA(Kjn-RXYP(IC2l|-^l"S 

THIS  OlSTANCE  HAS  GOTTEN  BIGGEChCN  PIVOT  POINT  HAS  JUST 


MTYPEFLK)-0 
X2-RX;'  (K.1) 

V2-RXYOI 
XI-RXYi 
YI-RXYi 
TOP-V2-YI 
BOT-X2-X1 
F  (BOT.EO.OO)  BOT^OT».OOI 
OIR-ATANWkBiWrOPyAaS(BOT)rt»OJPI 

lF  (  F(TOTLTJ).q)NDB.DB-1B0. 
F  rrOP  GT.0J5)  OIR-KO.-OB 

else 

tFgOPXT-aO)  DIR-3S0.-OB 
AZOUT-OIR 

CALL  FAZ  (AZOUT.AZIN) 

IAZ.INTC 
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C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


ENOF 
ENDF 

SET  TURRET  POSITION  F  STILL  W  SURVELLANCE  MODE 
F  £00EFRj.K).E0.7)  AZTR(K)-1RSA(IL2) 

EXECUTE  DIRECT-FIRE  OROERS 

AU  ACTIVITY  OCCURS  AT  THE  ENO  OF  THE  MODE  TBIE 
THAT  WAY  WASTED  TIME  ANO  WASTED  ENGAGEMENTS  HAVE 
AN  EFFECT  ON  THE  BATTLE 

BLUE 

OO  ISO  K.1.NB 

LOOP  1 

CHECK  TO  SEE  F  THIS  UNIT  IS  KLLEO  AND  8KP 
WRITE  r.VKILL  STATUS  BLUE  •**  ALIVE 
BUT  BEFORE  SKIPPING  fT.  SEE  F  IT  WAS  A  FBE-AND-FORGET 
WEAPON  ANO  W  THE  LAST  SECONDS  OF  ENQAGMENT  MOOE  OR 
RE-ENGAGEMENT  MOOE. 

MOOEF-MOO£FB(K) 

F  IIBSYSpC2).EO.O)  THEN 

nsys-ibsysSli) 

F  (MO0EF^Q2.0Ri4OOEF£a«)  THEN 


F  (MO0EF.EO.2.OR 
NWP-ITGTB(K.2) 
MILTYPE-MILBINS' 


c 

c 


_  _  _  VS.NWP) 

F  (MIL  TYPE.Ed.01  THEN 
CALCULATE  TIME  TO  BULLET  MPACT 
TCHANGE-TRMFBQQ 
BORE-BOREB(NSYSNWPyiOOO. 

TOF.TOFB(NSYS,NWP) 

TRNG-PKTB(jL2l 

ttrng.trnSbore-tof-i.0 

F  (ITIME.GE.fTCHANGE-TTRNQ))  THEN 

THIS  WEAPON  IS  NOW  W  SACRFCE  MOOE  SINCE  IT  IS  DEAD  ANO 
HAPPENED  TO  GET  A  FIRE-ANO-FORGET  SHOT  OFF  FIRST 


oo  oo  oooooouuoooo  o  ooouoo  ooo  oou 


UOQCM 

shot 

WRITS  (10, •) '  BLUE  'X'  MAKE*  SACRFICE  SHOT 


8ET  TO  0  -  KILLED  WWLE  ENGAGING  A  TARGET 


TIRE 

ENOF 


EN_ 

ENOF 
ENOF 

ENCMF 

IF  («SYS<IL2).Ea.aANO.MOO£F.NE.e)  QO  TO  ISO 

RE-EV^^^InSa^MENT  MOOE  to  see  F  THIS  red  target 

WAS  JUST  KILLED 

tF^Y3^TGTB<K.1).2).EQ.1)  THEN 

MO0EFB(K)«fl 

WRITE  (1<n  -SLUE  ’X*  RE-ENGAGES  RED  ',ITGTB<K,1) 

THIS  TARGET  WAS  KLLEO  LAST  GO  AROUND  SO  FINO  ANOTHER 
MOOEF.t 
MOOEFBlKj.l 
NSYS-BSVS<K,1) 

ALFT1-BPRIME(K.1) 

ARGT1-BPRIME(Ki) 

IF  (ALFTl.GTARGTI)  ARGT1.ARGT1.380. 

ALFT2.BS£C0N0(K,1) 

ARGT2-IB3ECOrSx2) 

F  (ALFT2.GT  ,ARGT2)ARGT2.ARGT2-f 380. 
FjlBPRIMElK.1lEalBSECONO(K.1)ANO.ISPRIME9U). 

I  EQ.BSECONCXKjQ)  THEN 
ALFT2-1.0 
ARGT2-1D 
ENOIF 

DETERMINE  END  UME  OF  SEARCH  MOOE  CYCLE 

8TIME.(jMROTl-ALFT1J*JARGT2-ALFT2))ISRCHB(NSYS) 

ENOF  ”  T 

ENOF 

WRITE (• -IFIRE  MOOE  BLUE '.MOOEF 
INCREASE  CYCLE  TIME  IN  THIS  MOOE 

TCFMB(KJ*0O£R.TCFMB(K,MO0ER«0T _ 

WRITE  r.*l  -CYCLE  TIME  BLUE  '.TCFMB(K.MOO£F) 

F  (MOOEF,Eai.OaMOOEFSO^.OR.MOOEF,EQ  5.0RUOOEF  EQ-3)  THEN 
LOOP* 

SEARCH  MOOE  (1)  OH  BALK  MODE  (4)  OR  WATT  MOOE  (6) 

EM  ENERGY  WAIT  MOOE  (3) 

BALK  MOOE  IS  ACTUALLY  RE-SEARCHING.  BUT  IS  BROKEN  OUT 
FOR  DUTY  CYCLE  ACCOUNTABILITY 

WAIT  MOOE  IS  ACTUALLY  RE -SEAR  CUING,  BUT  IS  BROKEN  OUT 
FOR  DUTY  CYCLE  ACCOUNTABILITY 

EM  ENERGY  WAIT  MOOE  IS  ACTUALLY  RE-SEARCHING.  BUT  IS  BROKEN  OUT 
FOR  DUTY  CYCLE  ACCOUNTABILITY 

CHECK  FOR  MOOE  CHANGE  AT  END  OF  SUB-CYCLE 

:  CHANGE  BLUE  .TCHANGE 

F  (TCHANGEXE  TNEXT)  THEN 

LOOP* 

ITS  TIME  TO  FIND  A  TARGET 

FIND  ANGLE  ANO  RANGE  TO  ALL  FRIENDLY  ANO  THREAT  VEHICLES 
SO  THAT  MASKING  CAN  BE  EVALUATED 

K3CE-1 

MYSIOE-1 

8LUE-K 

CALL  VMASK  (KSI0E.I8UUE) 

FIND  ALL  RED  TARGETS  N  PRIMARY  AND  SECOMMRY  ZONES 
OUT  TO  MAX  RANGE  FOR  EACH  ON-BOARO  WEAPON 
NSYS-BSYS(K.l) 

NWEAP-NWBNSY9 

NRNQ1aNRVm(NSYS.l) 

RMAX1-O0 

RMAX2ML0 

RMAXMO 

NUMIaO 

NUM2-0 


ISR.JFl)-1»»(J-ir»»K 
WHERE  U8Y8TEM  “ 


ncn  FLE  (10  MAX):  J-SYSTEM  WEAPON  (3  MAX); 

K- WEAPON  RANGE  MAX);  N.TARGET  (T 10  MAX) 
NUMI-<NSYS-12*1»^1-1)-8»NRNG1 
HMAXI-RBlNUMI) 

WRITE  (V)  •RMAX1\RMAX1.-R8@B\RB(*2) 

WRITE  M  ‘NSYSLNSYS.'NWEAPLNVW^AP.NRNQr.NRNG  1  ,-NUM  1\NUM 1 
WRITE  f - - 


NUM1-0 
ENOF 
F  (NWEAP.GEJ)  THEN 


NRNCe-NRW8(NSYS*) 

NUM2-(NSYS-1)-ia«(2-1)‘A>NRNG2 

RMAX2*RS(NUM2) 

WRITE  -NSYSXSYS.-NWCAPJMEAP,'NRNG?>«NG*.-NUMZJ«JU* 
WRITE  jvKJISHOTB 

riIaxsh 

NUM2-0 
ENOF 
ENOF 

F  (NWEAP.EQ.3)  THEN 
NRNG3-NRW8(NSYS.3) 

NUM3^NSYS-1)-1M3-1)-**NRNG3 

RMAX3-RBWUM3) 

WRITE  (•,-)'NSYS.NSY3.-NWE«'JIWEAP.-NRNGS^«NGa.T*JM*HUM* 


WRITE  (V)  -NSHOTB>ISHOTBnC3) 
FjN^OTB(KJ)I£.0)  THEN 


im 

bgtiTcv 


c 

c 

c 

c 

c 


NUM3-0 
ENOF 
ENOF 

SEARCH  ALL  ZONES  BASED  ON  ZONE  AZIMUTHS 
OVERI-O 
IOVER2-0 
ALFT1.IBPRIME 
ARGTI.IBPRIME^  _ 

F  (ALFT1  .GT JLRGT 1  )fc)VER1. 1 
F  IALFT1.GT.ARGT1)  ARGT  1.ARGT 1  *360. 

ALFT2-  lBS£CONO(K.  1 ) 

ARGT2»BSECONO(KJ!) 

F  (ALFT2.GT.ARGT2I  IOVER2.1 
F  (ALFTSLGT>RGT*j  ARGT2.ARGT24.3flO, 

IF  IBPRtME(K,l).EQ.IBSECONO(K.1)>ND.IBPRIME(IC2). 

A  EaiBSEOONO(K^))  THEN 
ALFT2--1.0 
ARGT2-1.0 
ENOF 

GET  X.Y  COORDINATES  FOR  THIS  BLUE  UNIT 
XB»BXYA(K.1) 

YB.BXYwK.2i 
initialize  prior  rres 

NTGT1.0 

PRUOjO 

MYWP1.0 

NTGTM 

8EOO.O 

MYWPM 

NTGTM 

THMMO 

MYWPM 

TRNG1ML0 

TRNG2ML0 

TRNGM.0 

PKWP  1.0.0 

PKWP2-0.0 

PKWP3MX0 

F  THIS  BLUE  SYSTEM  IS  OUST  SENSITIVE  M  TARGET  ACQUISITION. 
TRACKING  OR  RANGING, 

FIND  ANGLE  AND  RANQi;  TO  ALL  OUST  PUFFS  SO  THAT  MASKING  CAN  BE 

EVALUATED 

ITRK1.ITRK8(NSYS.1) 

BR0F.(NSYS-1)-3t1 

IRNG11.1 

RNG12.1 

IRNG13-1 

WNG1  l-IRNGB(ISROF.I) 

F  (NWEAP.QE.Z)  IRNG1^RNG8((ISROF.1).1) 

F  (JWEAP.GT2)  HNG13.lflNG8((ISflOF.2).l| 

F  (IRNG1 1.EQ.O.OR.  UNO 1 2.EQ.O.OR.IRNG  1 3.EQ.0)  CANRD4) 


F  (CANRO.EQ.O.OR.ITRK1EO.O) 

OMASK  (XB.YBRMAX  1  .RMAX2JUJAX3) 


C 

C 

C 

C 

C 


<  CALL 

FIND  ANGLE  AND  RANGE  TO  ALL  BURNING  VEHICLES.  SINCE  THEY  COMPLETELY 
MASK  VISUAL  ANO  IR  SYSTEMS 
CALL  COO  KM  ASK  (XB.YB.RM  AX1  ,RM  AX2.RMAX3) 

F  THIS  BLUE  SYSTEM  IS  ENGINE  SMOKE  SENSITIVE  M  TARGET  ACQUISITION. 
TRACKING  OR  RANGING. 

FIND  ANGLE  ANO  RANGE  TO  ALL  ENGINE  SMOKE  PUFFS  SO  THAT  MASKING 

CAN  BE  EVALUATED 

ITRK2.ITRKB(NSYS,2) 

ISROF.(NSYS-l)-3*l 

IRNG21.1 

IRNG22.1 

IRNGZ3-1 

IRNG21  -IRNGBIISROF*) 

F  (NWEAP.GE2)  IRNG22-IRNGB((ISR0F.1)2) 

F  (NWEAP.GT5)  «NG2*.«NGB(ilSROF.^5i 

F  (IRNQ21.EQ.O.OR.IRNG22.EQ.Q.OR.IRNG23.EO.O)  ICANRE-O 
F  (CANRE.EQ.O.OR.ITRK2.EQ.O) 

A  CaLlESMASK(X8.YBRMAX1RMAXZRMAX3) 

IF  THIS  BLUE  SYSTEM  IS  SMOKE  GRENADE  SENSITIVE  IN  TARGET  ACQUISITION. 
TRACKING  OR  RANGING,  __ 

FIND  ANGLE  ANO  RANGE  TO  ALL  SMOKE  GRENADE  CURTAINS  SO  THAT  MASKING 

CAN  BE  EVALUATED 

ITRK3-ITRKB<NSYS.3) 

ISROF.(NSYS-1)*3»1 
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oo  oo  ooooo  on  no  oooooo  o  o  oo  o  noo  no  o  o  o  oo  o  ocoo>oo 


F  THIS  BUIE  SYSTEM  BARTUEflY  SMOKE  SENSITIVE  M  TARGET 

awsmoa 

nucnnamuNSiA 

FMO  ANGLE  ANO  RANGE  TO  ALL  ARTILLERY  SMOKE  CURTAINS  SO  THAT 
ASKING 


CAN  REEVALUATED 

ITRM-ITRKB(N3YS^| 
BROF-ffBYS-irVI 
FNG41.1 
IRNG4»1 
IRNG43.1 

wjwii-irngscbrof, 


F  (NWEAP.GE 
F  MWEAP.GT. 


JSROF+IU) 

llSROF*jj.«| 


.. _  JIRNG43.# 

ICAf4flA„  1 

f  (RNG41.ECLaOR.nNG42.EaO.OaiRNG43.EQ.O)  CANRA-0 
F  (CANRA£Q.O.OaiTRK4.EQO) 

A  CALL  ASMASK  (XB.YBJ1MAX1.RMjijaRMAX3) 

FIND-0 
00  148J-1.NR 

LOOP  4 

CHECK  TO  SEE  F  ma  RED  UNITS  KK1E0 

F  (IRS Y3( J  ,2).  EQ  .O.OR IRS Y SO , 1LGT .  1 0)  GO  TO  14S 
FMO  THIS  RED  UNITS  X.Y  COORDINATES 
XR-RXYAIJ.1) 

VR4WVMJ2 

FMO  RANGE  TO  THIS  TARGET 
RANQE-<(XR-XB)"2t(YR-YB)"S)“S 
WRITE  (V)  -RANGE  TO  RED  XRANGE 

CHECK  TARGET  SIGNATURE  AGAMST  OETGCTABUTY  ANO  8KF  F 
NOT  DETECTED 


CALL  CHECKSUM  JCLRANGE.JSKIP) 
F  (JSKIP.EQ.Q)  GO  TO  148 


F  THIS  TARGET  B  OUTSOE  THE  RANGE  OF  ALL  WEAPONS  SKIP  IT 
^  WITO(^RWQE-RANGE.,RMAXrjaiAXI.,HMAXgRMAX2. 

jSSIp-o 

F  ((RANGE^iaoaUERMAUI  JSNP-1 

F  ((range  *iooaj.LERMAX3)  jskjpIi 
wwTEjvi -rangeSSp  ■  jswp:  o-yes- 

F  (JSKP.EQ.O)  GO  TO  148 

TARGET  S  WITHM  RANGE  OF  ONE  OF  THESE  WEAPONS 
F  THIS  TARGET  B  OUTSOE  THE  FIRE  ORDERS  RANGE  WINDOW  SKF  IT 
F  |RANGEXT.WRNG8(K.1>.0RJTANGEX>T.WRNGa<IC2))  JSKF-0 

FIND  ANGLE  TOTH  IS  TARGET 

TOP-YR-YB 

BOT-XR-XB 

F  (BOT.EO.O.O)  BOT-BOT.  OOI 
On-ATAN(Afli3npPyABS<BO’l))*18QJPI 
F  (bot.lto!Sthen 

F  nOPITjm  D8T-OR-180. 
f  (top.qt.0.0)  on.iao.-oiR 

ELSE 

f  (topxt.o.o)  ouum-on 

ENOF 

CONVERT  THB  COOROMATE  SYSTEM  DIRECTION  TO  AN  AZIMUTH 
CALL  FAZ (DFLAZM) 

AT  THB  POINT  EVALUATE  TEHRAN  ANO  FRIENOLY/ENEMY  VEHICLE 
MASKING  AND  OBSCURANTS  ANO  DROP  THB 
TARGET  FROM  ZONE  F  UNOBSERVABLE 

TERRAIN  HABKMQ 

F  (ITER  £0.1)  CALL  TERRMASK  (X8.YBJCR.YRJSKF) 

F  (JSKIPJEQ.O)  GO  TO  148 

VEHICLE  MASKING 

CALL  VSEE  (MYSOEJURANGEJIZMJSKFNBHR) 

BURNMG  VEHICLE  MASK  MG 

CALL  COOKSEE  (XB.YBJ(RYRAZM-J8KIP> 

F  (JSKFEQU)  GO  TO  149 

OUST  MA3XMG 

F  THIS  BLUE  SYSTEM  B  OUST  SENSITIVE  M  TARGET  ACQUISITION, 
TRACKING  OR  RANGING, 

EVALUATE  ALL  OUST  PUFFS  WITHIN  RANGE  OF  THB  TARGET 
J0U8T-1 

F - 


_ _ _ _ LUE  CANNOT  SEE  THROUGH  IT 

SKF  THB  TARGET 

F  UOL  i  -  EQ.O.ANO.  (TRK 1  .EQ.OI  GO  TO  149 

THERE  MAY  BE  DUST  M  THE  WAY.  BUT  BLUE  CAN  SEE  THROUGH  IT. 

THE  QUESTION  REMANS  WHETHER  BLUE  CAN  RANGE  OR  TRACK  THROUGH 


r  SMOKE  PUFFS  WtTHM  RANGE  OF  THB  TARGET 


C  THE  DUST.  IF  JDUST-0  THERE  «  DUST  M  THE  WAY. 

C 

C  ENGINE  SMOKE  MASKING 

C  F  THB  BLUE  SYSTEM  B  ENGINE  SMOKE  SENSITIVE  M  TARGET  ACOUBITION. 

C  TRACKING  OR  RANGING, 

C  EVALUATE  ALL  ENGINE  SMOKE  PUFFS  WITHM  RANGE  OF  THB  TARGET 
JENO.1 

F  (ICANREEaO.OaiTRK2.EO.OI 
A  CALL  ESSEE  (XB.YB.XR.YRAZMJENa 
F  (JENaEa0AkND.ltRK2.Ea0)  GO  T0 149 

C  SMOKE  GRENADE  CURTAM  MASKING 

C  IF  THB  BLUE  SYSTEM  B  SMOKE  GRENADE  SENSITIVE  M  TARGET  ACOUBITION. 
C  TRACKING  OR  RANGING, 

C  EVALUATE  ALL  SMOKE  GRENAOE  CURTAINS  WITHM  RANGE  OF  THB  TARGET 
JSMK-1 

f  (CANRSEao.oarmK3Ea.qi 
A  CALL  GRSEE  (XB.YB.XR.YRAlZM.JSMK) 

F  (JSHK.EaoJLNO.ITRK3.Eao)  GO  TO  149 

C  ARTILLERY  SMOKE  MASKING 

C  F  THB  BLUE  SYSTEM  B  ARTLLERY  SMOKE  SENSITIVE  N  TARGET 
ACOUBITION. 

C  TRACK  ING  OR  RANG  MCI 
C  EVALUATE  ALL  ARTILLERY  i 
J  ART-1 

F  OCANRAEQ.aOaiTRK4.Eaqi 
A  CALL  ASSEE  (XB.YB.XR  YR JLZINJART) 

F  <JARTEa0.AND.ITRK4.EQ.0|  GO  TO  149 
C 

INZONE-3 

F  IAZIN.GEALLFT1ALNOALZMJE.AROT1)  INZONE-1 
F  (Ip VER  LEO..!  .ANO.AZJN.Ujj|JflGT 1 -3800))  INZONE-1 

- NZONE-2 

.  _ _ ».0))  INZONE-2 

C  ‘  '  " 

C 

C  WRITE  (V)  -RED -J.'  NZONE  T  '.MZONE 
F  (MZOM^.GE.1)  THEN 
C  LOOP# 

C  GIVE  THB  TARGET  A  PRIORITY  NUMBER 
C  ANON  THE  ENOSELECT  ONLY  THE  HIGHEST  PRIORITY  TARGET 
C  TARGET  PRIORITY  B  A  COMPOSITE  OF  THE  PROBABUTY  OF  THB 
C  TARGET  KILLING  YOU  TRIES  YOLTHE  PROBABUTY  OF  KAJ.MQ  IT. 
NiTSYS-tRSYS(J.I) 

C  CYCLE  THROUGH  ALL  WEAPONS  ON  YOUR  SYSTEM  FOR  THE  ONE  WITH  THE 
C  HIGHEST  PK  AGAMST  THB  TARGET  AM)  EVALUATE  WHETHER  YOU  WU 

C  SHOOT  IT  BASED  ON  NUMBER  OF  AVALABLE  ROUNOS  OF  AMMUNITION 
C  THE  PK  AGAINST  THB  TARGET.  AND  THE  GENERAL  THREAT  PICTURE 

PKIT1-aO 
PKIT2-O0 
PKIT3-O0 
KSOE.1 
PKITM-OO 
IWEAP-0 


C  TARGET  IS  M  PRIMARY'  ZONE 


C 

C 

C 

C 

c 


FMO-IFMO-1 
F  (FINDEQ.1)  THEN 

BLUE  HAS  FOUND  ITS  FIRST  POTENTIAL  TARGET 

EVALUATE  EM  ENERGY  AVALABLITY  FOR  THB  BLUE  SYSTEM 
(POTENTIAL  MODE  3) 

F  (NSYS.EQ.NBLUE)  THEN 
ELI-1  J) 

EL2-1.0 

EL3-1.0 

ILOST1-0 

ILOST2-0 

ILOST3-0 

F  (NEMW.QE.1)  THEN 
EL1-ELSYS(KVEWP(1.1) 

F  (EL1.LT.EWP{1.2))  (=L  1-0.0 
F(iL1XT.1.0)THEN 

WRITE  (10.V  BLUE  X'  WEAPON  W  MSUFFCCNT  ENERGY 
4  FOR  FULL  EM  SHOT 
ELSE 
ELI-1.0 
ENOF 
ENOF 

F  (NEMW.QE2)  THEN 
El5-ELSY$(KyEWP(2,1) 

F  (ELZLTEWPa2))EL2-0.0 


1) 

L3-0.0 


_ _ _ _ X*  WEAPON  -A-  WSUFFdENT  ENERGY 

4F0R  FULL  EM  SH — 

ELSE 
EL2-1.0 
ENOF 
ENOF 

F  (NEMW.E0.3j 
EL3-ELSYS(K5 
F  (EL3.LT.EWBA)  £ 

F  (EL3.LT.1.0)  THEN 
WRITE  (10.*)  ’  BLUE  X'  WEAPON  'A’  MSUFFCIENT  ENERGY 
4  FOR  FULL  EM  SHOT 
ELSE 
EL3-1.0 
ENOF 
ENDF 
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§8 


ENOF 

END  OF  CM  ENERGY  EVALUATION 
00  141  NUM.14 

LOOP* 

LEO.1-ANO.NUM1.EO.0)  GO  T0 141 
_  LE0.LAN0.NUM2.Ea.3  GO  TO  141 
LIM.EQ.XANONUMXE04  GO  TO  141 


C 

C 

C 

C 

c 

c 

c 


WOFk  (KSOC.NSYSJATSYS.NUM.NRNGI.RANGEJ’Krru) 
f  (isf>oa(K).QT.aon.ispoH(j).GT.o)  then 
MiTYPC-MLB(NSYS.NUM) 


F  (MLTYPE.EO.O)  THEN 
BORE-BORE  B/NSYS.NUU) 

TOF-T0F8(NSYS,NUM) 

CAU  PKMOVE  (KSDE.KJ.AANGE.BOAE.TOF.PKm) 

ENOF 
CNOIT 

F  (JOUST .EO.O.OAJENG.EO.01  THEN 
EVALUATE  DUST  EFFECTS  ON  WEAPON  RANGING  ANO  TRACKING 
F  THIS  WEAPON  IS  F-A-F  THEN  DUST  DEGRADES  HIT  PROBABLITY 
F  THIS  WEAPON  CANNOT  RANGE  THROUGH  THE  DUST 
F  THIS  WEAPON  IS  M-M.  THEN  DUST  DEGRADES  TRACKING 
F  THIS  WEAPON  CANNOT  TRACK  THROUGH  THE  DUST 
F  («NQ(  I^O.O.Ofi.«NG?I.EO.a  THEN 
THERE  IS  A  DUST  OR  ENGINE  SMOKE  f 
EVALUATE  M-U.  OR  F-A-F 
MLTYPE-MLB/NSYS.NUM) 

IF  (MLTYPEEQ.O)  uHEN 

THIS  WEAPON  IS  F-A-F.  OEGRADE  PK  BASED  ON  NO  RANGE  KNOWLEDGE 
BORE-BOR£8(NSYS4IUM) 

TOF-TOFBftiSYS.NUM) 

CALL  PKLESS  ( KSIOEjO RANGE. BORE.TOF.PK IT  t) 

ELSE 

SKIP  THIS  WEAPON  SINCE  CAN'T  TRACK  THE  TARGET 
PKITI-OO 
ENDF 
ENOF 
ENOF 

- unsmotuac  nuui 

■PKITIL'PKITI'.PKITI 


:  RANGING  PROBLEM  WITH  THIS  WEAPON 


NSYS.EQ.NflLUE)PKJT1-PWT1*EL1 
PKIT1.NE.0.0)  THEN 
LL-LOG(.OiyLOG(1.-PKm) 


•  (PKl  _ _ 

F  (N9YS.EQ.NSlU 

fipkiti - 

SKLL-L 
ELSE 

SKLL-M8B. 
LOST1-1 
ENOF 
ELSE 


ENOF 

F  (NSHOTS.EQ.ffl  RKrTI-O-O 
F  (SKLL.GT.1S.0)  PKIT  1-0.0 
F  (9<ILLLE.1«.0Ju®.SK»J_GT.7.0)  THEN 
IF  (SKLL.GT.7ilt  THEN 
F  (SwLL.GTA8.0i  THEN 

PSHOOT.NSHOTS^KIU 

PNO-RNDQ. 

IF  (PNO.GE.PSHOOT)  PKIT1-0.0 

ENOF 

F  (PKrri.GTJNCITM)  THEN 
PXmUPKITl 
IWEAP.1 
ENOF 
ENOF 

F  (NUM.E02)  THEN 

CALL  FWOPK  (KSOE>@Y!i^tTSYSJAIM.NRNG2.RANGE.PKmLJ) 
F  IIS^K).GT.O.ORi3POfl(J).GTiJt  THEN 
MLTYPE-MLB(NSYS,NUM) 

F  (MLTYPILEqjJ)  THEN 
BORE-BORE  B/NSYS.NUM) 

TOF.TOFftNSYS.NUM) 

CALL  PKMOVE  ftCSOEKJ.HANa£.BORE.TOF.PKIT2) 
ENOF 
ENOF 


C 

C 


_  _ i  RANGING  PROBLEM  WITH  THIS  WEAPON 

EVALUATE  M-M.  OR  F-A-F 
MLTYPE-MLBfNSYSNUM) 

F  (MLTYPEfaO)  TFCN 

THIS  ••  SAPON  IS  F-A-F,  DEGRADE  PK  BASED  ON  NO  RANGE  KNOWLEDGE 
BORE-BORESi  -  IVSJCUM) 

T0F.T0FBft3YS.NUM) 

CALL  PKLESS  (KSIOEJCJ -RANGE. BORE, T0F.PKIT2) 

SWP  THIS  WEAPON  SNCE  CANT  TRACK  THE  TARGET 
PKITS-OO 
ENOF 
ENOF 
ENDF 


ENOF 

ELSE 

SKLL-BBSB. 

ENOF 

IF  (NSHOT3.EQ.O)  PWT 2ML0 
C  F  (SKLUJT.ILft  RKIT2-O0 

C  F  (SKLUE.ie.0AND.SKILL.QT.7i))  THEN 

F  (SKLL.GT.4L0)  THEN 

PSHOOT-NSHOTS/SKLL 

PNO-RNOO 

F  (PNO.GE.PSHOOT)  PKIT2-0.0 

ENOF 

F  (PKIT2.GT.PKITM)  THEN 
PKJTM-PKIT2 
IWEAP-2 
ENOF 
ENDF 

F  (NUM.EQ.3)  THEN 

CAU  FINOPK  (KSIOE.NSYSJIITSYS.NUM.NRNGORANGE.PKIT3J) 

F  (ISPOB(K).dT.O.ORISPDR(J).GTi»  THEN 
MLTYPE-MLB/NSYS.NUM) 

F  (MLTYPE  Ea.O)  THEN 
BORE-aOREUNSYSHUM) 

TOF-TOFB(NSYS.NUM) 

CAU  PKMOVE  (KSI0E.KJ.RANGE.B0RE.T0F.PKIT3) 

ENDF 

ENOF 

F  (JDUST.EQ.O.ORJENQEaO)  THEN 
F  IIRNG13.EQ.O.OR.IRNG23.EQ.O)  THEN 

C  THERE  IS  A  DUST  OR  ENGINE  SMOKE  RANGING  PROBLEM  WITH  THIS  WEAPON 
C  EVALUATE  M-M.  OR  F-A-F 
MLTYP£-MILB(NSYS.NUM) 

F  (MLTYPEEO.O)  THEN 

C  THIS  WEAPON  IS  F-A-F.  DEGRADE  PK  BASED  ON  NO  RANGE  KNOWLEDGE 
BORE-BOREBJNSYSXUM) 

TOF-TOFBINSYS.NUM) 

CALL  PKLESS  (KSOeXJRANGE40RE.TOFPKIT3) 

ELSE 

C  SKIP  THIS  WEAPON  SMCE  CANT  TRACK  THE  TARGET 
PKIT3-04 
ENOF 
ENDF 
ENOF 

NSH0TS»WSH0TB(K7AJM) 

C  WRITEr.*)  10GBOT3'XOG(1.-PWT3L'PKrT3rpKIT3 
F  (PKrra.NE.0.0)  THEN 
F  (NSYS.EQ HBLUE)  PKIT3-PKrrrEU 
F  )PKfT3.NEi).0)  T>4n 
SKLL-LOG(4iyLOG(1  .-PKIT3) 

ELSE 

SKLL-M8L 

HOSTS- 1 
ENDF 
ELSE 

SKLL-BBBB. 

ENOF 

IF  (NSH078.E0.»  PWT3-0.0 
C  F  (SKLLGT.16.0)  PKITS-Oi) 

C  IF  (SKILLLE.18.0.AND.SKILLGT.7.0)  THEN 

C  F  (SKLLGT.7.0)  THEN 

F  (SKILLQT.45.0)  THEN 

PSHOOT-NSHOTS/SKLL 

PNO-RNOO 

F  (PNO.GE.PSHOOT)  PKrTWLO 

ENOF 

F  (PKJT3.GTRKITM)  THEN 
PKITM.PKIT3 
IWEAP-3 
ENOF 
ENDF 

141  CONTINUE 

C  END  LOOP  • 

C  END  OF  BLUE  WEAPON  SELECTION  LOOP 
C  WRITE  (*.•)  'SLUE  WEAPON  SELECTION'.IWEAP.'PIC.PKITM 

C  F  TARGET  IS  AT  A  QUESTIONABLE  EFFECTIVE  RANGE  SKIP  IT 
IF  (PKITM.LE.0.0)  00  TO  143 
F  (IWEAP.EO.O.&)  GO  TO  143 


C 

C 

C 


FIND  PROBABLITY  OF  THIS  TARGET  KILL  FIG  YOU  AND  APPLY  PRIORITY 
FACTOR 

KPFACT-KPRSftLNITSYS) 

PKYOUI-O.O 
PKYOU2-0.0 
PKYOU3-0.0 
KSIOE-2 


NSHOTS-NSHOTBOCNUM) 
WRITET,*)  LOG  BOTZXOQ(1.. 
F  (PKIT2.NE.aCn  THEN 


g.aoi  ri 

TSsYs!EQ.mU! 


.-PKIT2),'PKIT2’J,KIT8 


NUMIT-NWRfNITSYS) 

IRNGI-NRWHfNITSYS.I) 

F  (NUMIT.GE7)  IRNG2-NRWR(NfTSYS  j 
F  NUMIT.E03J  lRNG3-NRWR(NIT3YSi 
DO  14S  NUM.1.NUMIT 
F  (NUM.EQ.il  CALL 
■'INOPKIKSIC 


.  _ UEJPK1T2-PWT2*EL2 

F  lPKrrs.NE.Oi))  THEN 
SKLLM0G(i)1VL0G(1.-PKfTS) 

ELSE 

SKLL-BBBB. 

LOS  72-1 


A  FINOPK  (KSDE.NITSYS.NSYSHUM.IRNQlilANGEWOUIjq 

F  (NUM.EQ.3)  CALL 

A  FINOPK  (KSIOEJC(TSYSJVSYS.NUM.KNG2X»ANGE,PKYOU2JC) 

F  (NUM.EQ.3)  CALL 

A  FINOPK  (KS ID E.NITSYS.N SYS, NUM.IRNQ3 RANGE PKYOU3X) 

142  CONTINUE 

C  FIND  MAXIMUM  PK  AQANST  YOU 
PKYMAX-0.0 
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PKYMA3UPKY0U1 
PKVMA1UPKV0UI 
PKYMA3UPKYOU3 

C  r  TARGETS  PK  ON  YOU  IS  ZERO,  GIVE  IT  A  SMALL  VALUE  SO  THAT 
C  YOU  AT  LEAST  HAVE  A  TARGET  TO  SHOOT  AT  IF  NO  OTHERS  ARE  BETTER 
C  AFTER  ALL  THIS  TROUBLE  OF  OECIOING  IF  YOU  CAN  KILL  IT 

IF  (PKYMAX.LE.aO)  PtMUUUO.01 

C  FINO  COMPOSITE  KILL  PRIORITY 

C  WRITE  (V)  "PK  IT  ON  YOLT.PKYMAX 

PRIOR.PKITM’PKYMAX’KPFACT 

C  AOO  A  SMALL  RANOOM  NUMBER  SO  NO  TWO  ARE  EVER  THE  SAME 
SMALURNOfl 
SMAU.-SMALU2S. 

PRIOR-PRIOfUSMALL 

PRIORITIZE  THIS  TARGET  WITHIN  PRIMARY  OR  SECONDARY  ZONE 

IF  IINZONE.EO.tj  THEN 
THIS  TARGET  IS  IN  PRIMARY  ZONE 
IF  (PRIOR.GT.PRI)  THEN 
PRMPRIOR 
NTGT1-J 
MYWP1.IWEAP 
TRNG1-RANGE 
IF  (IWEAP.EO.1)  PKWP1.PKIT1 
IF  (IWEAP.EQ.iJ  PKWP1.PKIT2 
F  (IW EAP.EQJ)  PKWP1.PKIT3 
ENOIF 
END  IF 

IF  (M2DNE.EO.2t  THEN 
THIS  TARGET  IS  IN  SECONDARY  ZONE 
F  (PRIOR  GT  SEC)  THEN 
SEC-PRIOR 
NTGT2-J 
MYWP2-IWEAP 
TRNQ2-RANGE 
IF  (IWEAP.EO.1)  PKWP2.PKIT1 
IF  IWEAP-EQi)  PKWP2-PKIT2 
IF  (IWEAP.EQ.3)  PKWP2-PKIT3 
ENOIF 
ENOIF 

r  (INZONE.EQ.31  THEN 
THIS  TARGET  IS  M3Sd  DEGREE  ZONE 
r  (PRIORGT.  THIRD)  THEN 
THIRD-PRIOR 
NTGT3-J 
MYWP3-IWEAP 
TRNG3-RANGE 
F  (IWEAP.EO.1)  PKWP3-PKIT1 
¥  (IWEAP.EQ2)  PKWP3-PKIT2 
F  IWEAP.EQ.3)  PKWP3-PKIT3 
ENOIF 
ENOIF 

13  CONTINUE 

TARGET  WAS  SKIPPED  TO  LINE  143  SINCE  IT  WAS  AT  A  QUESTIONABLE 
EFFECTIVE  RANGE  OR  INSUFFICIENT  AMMO  TO  RISK  MISSING  THE  SHOT 

WRITE  (V)  •PRr.PRL'NTGTl'.NTGTI 

ENCMF 

END  OF  INZONE 


END  LOOP  5 


IS  CONTINUE 

END  LOOP  4 

ENO  OF  FINDING  A  TARGET  FOR  THIS  BLUE  SYSTEM 

IF  THE  SECONDARY  TARGET  HAS  125%  OF  THE  PRIORITY 

OF  THE  PRIMARY  TARGET.  SHOOT  AT  THE  SECONOARY  TARGET 

ITGTB(K.1H> 

fTGTBflC2)-0 

PKTBM.1HM) 

PKTB(IC2)«0.0 

TRNG-0.0 

MYWP-0 

IF  (SEC.GE.(1-2S'PRI))  THEN 

SHOOT  AT  TARGET  IN  SECONOARY  ZONE  SINCE  IT  IS  COMPELLING 

ITGTB(K.1)-NTGT2 

ITGTB0C2)-MYWP2 

PKTB(K.1)-PKWP2 

PKTB0Cg-TRNG2 

TRNG-TRNG2 

MYWP-MYWP2 

ELSE 

STAY  WITH  PRIMARY  ZONE  TARGET 

ITGTB(K.1)-NTGT1 

ITGTB(IC2)-MYWP1 

PKTB(K.1)-PKWP1 

PKTB0C2J-TRNQ1 

TRNG-THNG1 

MYWP.MYWP1 

ENOIF 

IF  THERE  ARE  NO  TARGETS  M  PRIMARY  AND  SECONDARY. 

SHOOT  AT  THIRD  ZONE  TARGET  (360  DEGREES) 

IN3-0 

IF  (NTGT1.EQ.0.AND.NTGT2.EQ.0)  THEN 


C 

C 

C 

C 


ITGTBJK,1)-NTGTS 
ITGTB(K2)-MYWP3 
PKTBIK.  IWPKWP3 
PKTB<IU).TRNG3 
TRNG-TRNQ3 
MYWP-MYWPS 
jF^NTGTXNE.O)  M3-1 

FOR  BATTLE  MANAGEMENT.  CHECK  TO  SEE  IF  MORE  THAN  4  BLUE  SYSTEMS 
ARE  ALREADY  SERVICING  THIS  TARGET.  IF  SO.  SKIP  IT. 

lFjlAMR<rrGTB(K.1».EQ.4)  THEN 

ITGTB(K.2)Io 
PKTB(K,1)-0.0 
PKTB(Kij-0.0 
TRNG-0.0 
MYWP-0 
ELSE 

IAMR(ITGT8(K.1))-IAMR<ITGT8(K.1))«1 
ENOIF 

WRITE  (V)  PRIMARY  ZONE  TARGE T\!TQTB(K,!) 

EVALUATE  TARGET  SEARCH  RESULTS  ANO 
CHANGE  MODE  FOR  THIS  BLUE  SYSTEM  ACCORDINGLY 
3TIME-Q.0 
MOOEN-O 

IF  (ITGTB(K.1).EQ.0>  THEN 

LOOP  7 

NO  TARGETS.  WAIT  MOOES  (EM  ENERGY  OR  SIMPLY  NO  TARGETS) 
10STEM-0 

IF  ( LOST t  .EG.  1  .OR . R.0ST2.EQ.  1 .0R.IL0ST3.EQ.  1 )  LOSTEM-1 

IF  (IL03TEU.EQ. 1  .AND.N3YS.EQ.N8LUE)  THEN 

A  TARGET  WAS  LOST  DUE  TO  INSUFFICIENT  EM  ENERGY  ALL  AROUND 
GO  TO  EM  ENERGY  WAIT  MOOE  (MOOE  3) 

WRITE  (10.  j  •  BLUE  ’JC'  INSUFFICIENT  ENERGY  TO  FIRE  ANY  WPW 
WAIT  A  COMPLETE  SEARCH  CYCLE  TIME  FOR  DUTY  CYCLE  ACCOUNTABILITY 
BUT  CREW  IS  STILL  SEARCHING  DURING  THIS  TIME 
MOOEN-3 

MOOEFB(K)-MOOEN 

DETERMINE  ENO  TIME  OF  ENERGY  WAIT/SEARCH  MOOE  CYCLE 
STIME>j(ARGTl-ALFT1H(ARGT2-ALFT2)ySRCHB(NSYS) 
TRMFB(K)-ITIME»IDT(ME*STIME 

asE 

SIMPLY  NO  TARGETS  WITHIN  EFFECTIVE  RANGE 

WAIT  A  COMPLETE  SEARCH  CYCLE  TIME  FOR  DUTY  CYCLE  ACCOUNTABILITY 
BUT  CREW  IS  STILL  SEARCHING  DURING  THIS  TIME 
MOOEN-5 
MODEFB(K)-MOOEN 

C  DETERMINE  ENO  TIME  OF  SEARCH  MOOE  CYCLE 

STIME-((ARGT1  -ALFT1)*(ARGT2ALFT2)ySRCHB(NSYS) 
TRMFB(K)-ITIMEtlOTlME*STIME 
C  WRITE  (V)  -BLUE  JC  NO  TARGETS ' 

ENOIF 

ELSE 

C  THERE  IS  A  TARGET  WITHIN  EFFECTIVE  RANGE 

C  SET  TURRET  AZIMUTH 

CALL  TURAZ  (1.K.ITGTB(K.1)AZTB(K)) 

C  SINCE  A  TARGET  WAS  FOUND.  CREW  GOES  INTO  OUCK  SEARCH 
C  MODE  FOR  NEXT  SEARCH  CYCLE,  FOCUSING  INITIALLY  ON  TARGETS 
C  WITHIN  A  .5  SECOND  TRAVERSE  ^ROM  THIS  TARGET. 

C  RESET  PRIMARY  SEARCH  ZONE  ANO  SET  SECONOARY  TO  0.0 

NSYS-IBSYS(K.1) 


C 

c 


c 

c 

c 


)-TRATEB(NSYS)/2.0 
kTRATEB(NSYSV2.0 
)  ALFT1.ALFT1  ♦360.0 
3.0)  ARGT1-ARGT1-360.0 


IBSECOND(K,V 

bseconSk^ 

ALFT1-AZTB(K. 

ARGTI-AZTBf* 

IF  (ALFT1XT.0.C 
IF(aRGT1.GT.31  _ 

IBPRIME(K.1)-ALFTl 
IBPRIME  Ki)-ARGT1 
ALFT2-0.0 
ARGT2-0.0 

IF  (ALFT1.GT.ARGT1)  ARGT 1  -ARGT 1  +300. 

IF  ( ALFT2.QT -ARGT2)  ARGT2-ARQT2«360. 

C  CHECK  MOOES  FOR  ENGAGEMENT.  ANO  BALKING 
BALK-RNDQ 

IF  (BALK.GT.0.97S)  THEN 

C  BALKING.  WAIT  SEARCH  TIME.  BUT  STILL  SEARCH 
MOOEN-4 

MOO£FB(K)-MOOEN 

C  DETERMINE  ENO  TIME  OF  BALKING  MOOE  CYCLE 

STIME-((ARGT1-ALFT1U(ARGT2-ALFT2)VSRCHB(NSYS) 
TRMF8(K)-mME+IOTIME*STIME 
131  FORMAT  J*  BLUE  '.13.'  BALKS  AT  RED  ',13) 

C  WRITE  C.131)  K,ITGTB(K,1) 

WRITE  (10.131  K.ITGTB  K.1 
ENOIF 
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C  E  NOTHING  ELSE,  THEN  ENGAGE  THE  TARGET 
E (MOpEkEQX)  YhEN 

mooIf5?».mocicn 

DETERMINE  ENO  TIME  OF  ENGAGMENT  MOOE  CYCLE 
BASED  ON  INTERPOLATING  BETWEEN  MW  RANGE  AND  MAX  RANGE 
ENGAGEMENT  TIMES 
IST-(NSV«-1)*3»MYWP 
NRGM«WB(NSYSAIYWn 
BRM-(N8YS-ipSHMYWp.1)**.NRQ 
BRMNSYS-lf  ISHMYWP-I)1#*  1  - 
RMW-RS(BRl) 


TMW-TEMW8(f8T) 

TMAX-TEMAXB(BT) 

CALL  T3HOOT  (RMW,RMAX,TUW,TMAX.TRNaSTIME) 

IF  TARGET  TO  BE  ENGAGED  ISM  ZONE  3  (MO  DEGREES]. 

MUST  ADO  THIS  EXTRA  SEARCH  TIME  TO  THE  ENGAGEMENT  TIME 
STIMEMaa(VS8CH8<NSYS)*WS 
TRMFB<XHTIME»&nME»ST1ME*STIME3 
2  FORMAT  CBUJE  MS.'  ENGAGES  RED  MS.’  WEAPON  ',13, 

A  '  RANGE '>6.01 

WRITE  £132)  K.m3TB(K.«IJUYWP.TRNG*1000. 

WRITE  (10.132)  K.lTGTB(K.1)>IVWP.TRNa*100a 

EVALUATE  EM  ENERGY  AVAAABLITY  FOR  THIS  BLUE 
NSYS-IBSYSIK.il 
IF  (NSYS.EON8LUB  THEN 
IF  (MYWPEaijmOEL1.LT.  1.0)  THEN 
IENL.EL1MOO 

iJSSHF*  •  BLUE  \K.‘  WEAPON  '.MYWP,'  FIRES  AT  MENU 
ENOE 

IF  (MYWPEO2AN0EL2ET.  1 .0)  THEN 
IENL-EUM00 

WRITE  (10.*) '  BLUE  X'  WEAPON  *.MYWP,‘  FIRES  AT  MENU 
AW  ENERGY* 

ENDIF 

IF  (MYWP.EO3AN0.EL3LT.1.0)  THEN 
ENL-EL3*100 

WHITE  (10.*)  *  BLUE  X*  WEAPON  \MYWV  FIRES  AT  ’.ENU 
ASA  ENERGY* 

ENDIF 

ENOIF 

ENOE 

ENDIF 

ENO  LOOP  7 

END  OF  TARGET  SEARCH  EVALUATION  RESULTS 
ENOE 

ENO  LOOP  3 

END  OF  ITS  TME  TO  SELECT  A  TARGET 
ENOE 

ENO  LOOP  2 

ENO  OF  SEARCH  MOOE 

E  (MOOEF.E02.OR.MOOEF.Ea6.OR.MOOEF.EQ.9-OR. 

A  MOOEFEOS)  THEN 

LOOPS 

ENGAGEMENT  MOOE 

CHECK  FOR  MODE  CHANGE  AT  ENO  OF  SUB-CYCLE 
TCHANGE-TRMFBIK) 

TNEXT-ITIME.IOTIME 
E  (TCHANGEXE.TNEXT)  THEN 

LOOPS 

ITS  TME  TO  KA1  THE  TARGET 

BLUE  EXPENOS  ONE  SHOT 

JKU.-0 

IAMOUT-0 

NWP.ITOTB0C2) 

NTG-ITGTBXl) 

TRNGiPKTBIKjft 

NSHOTB(K.NWPUN3HOTB(K.NWPV1 
E  (NSHOTa(KMWYP).EQ.O)  IAMOUT-1 


E  (NSHOTB(KMWVP).EO.O)  IAMOUT-1 
1AM  R  (NT  G)-l  AM  R(NTG)- 1 
^E^JWMgNTGLLTD)  IAMR(NTG)-0 

BENERGY-0.0 
NSY3-I83YS<K,1I 
E  (NSYS.EO.NBLUE)  THEN 
ELSISg^-ELSYSlKVEWPfNWP.I) 

E  ELSYSOQXT .0.0)  BENER0Y.1OAB$<ELSYS<KyEWP<NWP.1>) 
E  (ELSYS(IQXT.O.O)  ELSYSM-OO 
ENERGY -NlNT(BENERGY*100) 

ENOE 


FWO  SEARCH  AREAS  FOR  RE-MOOING  INFORMATION 
NSYS-BSYS(K,1) 

ALFT1-(BPRIME(K.1) 

AflGTI-BPHIMElKi) 

ALFT2-»S£CON£j(K.1) 

ARGT2-«SEC0NP(kA 
E  (ALFT 1  ,GT ARGT1)  ARGT1-ARGT1-360. 

E  ALFTiGTARGT2(  ARGT2-ARGT2-360. 

F  UBPRME(K.1LEO.lBSECONO(K.1)ANO.IBPRIME(l02). 
A  EQ.BSECOND0L2))  THEN 


ALFT2-10 
ARQT2— ID 
ENOE 

C  DETERMINE  ENO  TIME  OF  SEARCH  MOOE  CYCLE 
STIME-((ARGT1.ALFT1)«(ARGT2WLFT2)VSRCHB(NSYS) 

PROB-RNOO 

PKIT.PKTBfiO) 

C  CHECK  RED  TARGET  FOR  ACTIVE  PROTECTION 
CALL  CHECKAP3  (1NSYSWTGWWP.PKIT.FAPS.TRNG) 

XR-RXYA(NTQ.1) 

YR-RXYAINTGi) 

XB-BXYAlK.1) 

YB-BXYAUKiL 

C  DRAW  LINE  FROM  SHOOTER  TO  TARGET 
CAO  PUNE  (XRYR.XB.YB.1) 

E  (PROe.LEF>K)T)  THEN 
C  LOOP  10 

C  KILL  TARGET  AND  'E-MODE 

C  RE-EVALUATE  MASKMGANO  OBSCURANT 
C  TERRAW  MASKING 
JSKIP-1 

E  (ITER.EG1)  CAO  TERRMASK  (XB.YBJCR.YH JSKE) 

C  E  THIS  IS  A  MAN  IN  THE  LOOP  (Ml)  WEAPON.  THE  TARGET 
C  MUST  STILL  BE  ABLE  TO  BEEN  SEEN  ANO  TRACKED  M  ORDER  TO 
C  BE  HIT.  EVALUATE  CURRENT  DUST  ANO  ENGINE  SMOKE  SITUATION. 

C 

C  EVALUATE  M+l  OR  F-A-F 
MILTYPE-MILBINSYS.NWP) 

F  (MK.TYPE.Edl)  THEN 

C  THIS  WEAPON  IS  M-l-U  RE-EVALUATE  OBSCURANTS  FOR  MASKING 

C  E  THIS  BLUE  SYSTEM  IS  OUST  SENSITIVE  W  TARGET  ACQUISITION 
C  OR  TRACKING 

C  FIND  ANGLE  AND  RANGE  TO  ALL  OUST  PUFFS  SO  THAT  MASKING  CAN  BE 
C  RE-EVALUATED 
RANGE.  TRNG*  1000. 

ITRKI.ITRKBINSYS.I) 

tSR0F-(NSYS-1)*3«NWP 

MNGI.lRNGB(SROF.I) 

ICANRD-1 

E  (IRNGI.EaO)  CANROM) 


E  (CANRDEQ.O.OR.ITRK1.EQ.O) 
CALL  DM  ASK  (XB.YBRANGEOAOlOI 


C  FWO  ANGLE  ANO  RANGE  TO  ALL  BURNING  VEHICLES.  SMCE  THEY  COMPLETELY 

C  MASK  VISUAL  ANO  H  SYSTEMS 
CAa  COOKMASK  (X&YBRANGE  .0.0.0.Q 

C  F  THIS  BLUE  SYSTEM  IS  ENGWE  SMOKE  SENSITIVE  W  TARGET  ACQUISITION. 

C  TRACKING  OR  RANGING, 

C  FIND  ANGLE  AND  RAM3E  TO  ML  ENGWE  SMOKE  PUFFS  SO  THAT  MASKING 
C  CAN  BE  RE-EVALUATED 
(TRK2>fTRKB(NSYSta 
BROF-WSYg-1]>NWP 
E)NG2-lRNGB(ISR0F2) 

CANRE-1 

E  (IRNG2.EO.O)  ICANRE-O 
E  (CANRE.EaO.OR.ITRK2.EOT)) 
t  CALL  ESMASK  (XB.YBRANQE.0.0.0,0) 

C  E  THIS  BLUE  SYSTEMS  SMOKE  GRENADE  SENSITIVE  W  TARGET  ACQUISITION. 
C  TRACKING  OR  RANGING, 

C  FIND  ANGLE  AND  RANGE  TO  AU  SMOKE  GRENADE  CURTAWS  SO  THAT  MASKING 

C  CAN  BE  RE-EVALUATED 
ITRK3.ITRKBINSVS.3) 

SR0F»(NSYS-1)"3*NWP 

IRNG3-lRNG8(lSROF4) 

ICANRE-1 

E  (IRNG3.EO.O)  CANRS-0 
F  (CANRS.EaO.OaiTRK3.EQ.O) 

«  CALL  GRMASK  (XB.YBRANGE.O  O.OD) 

C  E  THIS  BLUE  SYSTEM  B  ARTILLERY  SMOKE  SENSITIVE  W  TARGET 
ACQUISITION. 

C  TRACKING  OR  RANGING. 

C  FIND  ANGLE  ANO  RANGE  TO  Aa  ARTXLEHY  SMOKE  CURTAWS  SO  THAT 
MASKING 


=  TO  Aa  SMOKE  GRENADE  CURTAWS  SO  THAT  MASKING 


CAN  BE  RE-EVALUATED 
ITRK4-ITRKBINSYS.4) 
BR0F-<NSYS-1)*3*NWP 
IRNG4-1RNG8(BR0F,4) 

CANRA-1 

E  (IRNG4.EQ.0)  CANRA-0 
F  (ICANRA.EQ.O.OR.ITRK4.EQ.O) 

*  CAa  ASMASK  (XB.Y8RANGE.0. 


CAa  AS  MASK  (XB,Y8RANGE.0.0,0.0) 

OUST  MASKING 

RE-EVALUATE  Aa  OUST  PUFFS  WITHW  RANGE  OF  THB  TARGET 

FIND  ANGLE  TO  THB  TARGET 
TOP-YR-YB 


BOT-XR-XB 
E  (SOT.EO.O.I 


90T-80T-.001 


DIR.  AT  AN(ABS(TOP)/ABS(aOT))*  1 80/PI 
IF  (BOT.LT.O.O)  THEN 

E  (TOPLTO.O)  on-oiR+iao. 

E  TOP.GT.O.O)  0IR-1B0.-0IR 

ELSE 

E  (TOP.LT.0.0)  DIR. 360.-0 IR 
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CONVERT  IMS  COORDINATE  SYSTEM  DIRECTION  TO  AN  AZBIUTH 
CALLFAZ(OALAZ)N) 


JOUST.) 

IF  pCANRO.EQ  O.OR.rmK1  EDO) 

A  CALL  OSCE  (XB,YBJ(R.YRJk2N  JOUST) 


C  IF  THERE  a  OUST  M  THE  WAY  AND  BLUE  CANNOT  SEt  -R 
C  TRACK  THROUGH  ItTHE  TARGET  IS  MISSED 
IF  (JOUSTEQ AANO.IW)  EQ.OI  JSKIfM) 

C  F  J3KF.1  THERE  MAY  STILL  BE  DOST  M  THE  WAY.  BUT  BLUE  CAN  SEE 

C  THROUGH  IT.  THE  QUESTION  REMAINS  WHETHER  BLUE  CAN  TRACK  THROUGH 
C  THE  OUST. 


IF  (JOUSTEQXJMaCANROXOO)  JSKIP-0 

F  JSKF.1.  THERE  IS  NO  OUST  OR  TRACKING  PROBLEM 

BURNING  VEHICLE  MASK  NO 

CALL  COOKSEE  (XB.YBJOT.YRAZINJSKIP) 


C  ENGINE  SMOKE  MASK  MG 

C  RE-EVALUATE  ALL  ENGINE  SMOKE  PUFFS  WITHIN  RANGE  OF  THIS  TARGET 
JENQ-1 

IF  (CANRE.EO.aOfUTRX2.EQ.01 
A  CALL  ESSEE  (XB.YBJXR.YRA»ijENG) 

IF  (JENG.EQ.OANO.ITRK2.EQ.O)  JSKIPHJ 
F  (JENQ.EQ.OANO.CANRE.EQ.O)  JSKF-0 

C  SMOKE  GRENADE  CURTAIN  MASKING 

C  RE-EVALUAtTaU. SMOKEGRENAOE  CURTAINS  WITHIN  RANGE  OF  THIS  TARGET 
JSMK.) 

IF  (CANRSEQ.O.ORITRX3.Eap1 
A  CALL  GRSEE  (XB,Y%XR.YRAZINJSMK) 

IF  (JSMK.Ea(LANb.lTRK3EO.O)  JSKIPH) 

F  (JSMK.EO  LLANO.  CANRS  EaO)  JSKF.0 

C  ARTILLERY  SMOKE  CURTAIN  MASKING 

C  RE-EVALUATE  ALL  ARTILLERY  SMOKE  CURTAINS  WITHIN  RANGE  OF  THIS 
TARGET 

JART.1 


J  (JARTEQ.O.ANO.RRK4.EO.O)  JSKIP-0 
F  (JARTEQ.OAND.ICANRA.EQ.O)  JSKF-0 

ENOF 

C  END  OF  OBSCURANT  RE-EVALUATION  FOR  M-H.  WEAPON 

F  (JSKF.EQ.1)  THEN 
C  RED  TARGET  NLLEO 

C  TALLY  RED  KILLS  FOR  RESOLUTION  AFTER  THIS  SUBCYCLE 
C  JUST  IN  CASE  THIS  RED  TARGET  IS  ABOUT  TO  KILL  A  BLUE 
C  TARGET 

KLLB<NTGjH« 

C  RE-MOOE  TO  SEARCH 

MOOEN.1 

133  FORMAT  r  SLUE '.I3.‘KLLS  RED ‘.a 
C  F  HRSYS(NTGJ).NE.O)  WRITE  7.133)  KJfTQ 
C  FMAMOUTEQ.1JIND.MOOEFHE* 

C  A  WRITE  (*.*) ‘BLUE  ML*  WEAPON  \7nNP.*  OUT  OF  AMMO 
F  (IRSYSiNTGJj.NE.qi  WRITE  (10.133)  KJJTG 
F(lAlOUTlQ.1Jlte).MOOEF.NESl 
A  WRITE^JJSUJE  "JC1  WEAPON  •JlWP.1  OUT  OF  AMMO1 

C  F  (WSYS<NTGJ).NE.O)  CALL  0UTPUT2  (ITIMEANTG.O) 

ELSE 

C  SOME  SORT  OF  MASKING  GOT  IN  THE  WAY  OF  M-H.  SYSTEM _ 

C  OR  TERRAIN  GOT  IN  THE  WAY  FOR  F-A-F  WEAPON  WHILE  TARGET 
C  WAS  MOVING 

- a- - )  K.NTG 


F(IAM0UTE0.1>N0.M0DEF.NE.» 

A  WRRE^QO.n  -BLUE  \K,'  WEAPON  '.NWP.*  OUT  OF  AMMO 

WRITE  (10,n  -BLUE  *.K.*  SEARCHES  FOR  A  BETTER  TARGET 
MOOEN.1 

ENOF 

ELSE 

134  FORMAT  r  BLUE  ‘JX  MISSES  REO  '.13) 

C  F  (RSYS(NTGilNE.qi  WRITE  (M34)  MTG 
C  F  (IAMOUT.EQ.1.ANO.MOOEF.NE.9) 

C  A  WRITE  (VI  'BLUE  \K/  WEAPON  ’.NWP,*  OUT  OF  AMMO* 

F  (IR3YS{NTCL2).N£.qi  WRITE  (10.134)  KJJTG 
F  (IAM0UT.EQ.1.AN0.M00EF.NE-9) 

A  WfflTE^IO.T  -BLUE  \K.’  WEAPON  '.W.'  OUT  OF  AMMO* 

FJM00EF.EQ.8)  GO  TO  136 
C  RE-MOOE  BLUE  SYSTEM  AFTER  MISS 

C  THERE  ARE  TWO  OPTIONS  -  1  REENGAGE 
C  -  2  RE-SEARCH 

C  RE-ENGAGE  BASED  ON  AVA1ABLE  AMMUNITION.  AND  THE  Pk 
C  AND  AVAILABLE  EM  ENERGY 

C  00  NOT  RE-ENGAGE  F  EM  ENERGY  IS  BELOW  FUUPK  SHOT 


C  RE-SEARCH  F  DECISION  IS  TO  NOT  RE-ENGAGE 
PKIT.PKTBfKJ) 

NSHOTS^SHOTBflCNWPI 

c  U^h^0,yLOG<,''™T) 

NSYS-IBSYS(K,1) 

F  (NSYS.EO.NSLUE)  THEN 
ENEED.EWPjNWP.1) 

F  (ELSYS(K)J.T.ENEEO)  THEN 

nShotshlo 

M00ENELU3 

F  (IRSYSiNTOJI.Nfe.es  _ 

A  WRITE  (10.*) *  BLUE  *JC  MSUFFCCNT  Bt  ENERGY  TO  RE-ENGAGE* 
ENOF 
ENOF 


C 

C 

C 

C 


F  (NSHOTS.EQ.O)  MOOEN.1 
F  (SKILL.GT.1B.0S  MOOEN.1 
F  (SKLLXE.1AOANO.SKLL.GT.7X)|  THEN 
F  @KILUXlA.OANOHSHOTSJ4Ei|THEN 

fjskil.gt.7.oano.nshots.ne!oithen 
F  (NSHOTS.NE .0)  THEN 

PSHOOT.-.* .  >  <OTS/SKHi. 


P  NO-RNOO 
F  (SIOLLE.7| 


_CE.71  PNOMLO 

F  (SKILULEA®  PNOHJD 
F  (PNO.GEJ>SHOOT.ORMOOEFEOJ)  THEN 
MOOEN.1 

WRITE  (V)  -BLUE  JC  SEARCHES  FOR  A  BETTER  TARGET 
WRITE  (10,  VALUE  MC  SEARCHES  FOR  A  BETTER  TARGET 

FpRSYSfffTGANE.O)  THEN 
RE-BYGAGE  THE  T - 


C.TMIN.TMAX.TRNG3TIME) 


TARGET 

C  WRITE  (*.*)  ‘BLUE ;\K.‘  RE-ENGAGES  RED  \NTG 

C  WRITE  loS  *BLLl£  MC  RE-ENGAGES  REO  -J4TQ 
C  DETERMINE  ENO  TIME  OF  ENGAGMENT  MOOE  CYCLE 

C  BASED  ON  INTERPOLATING  BETWEEN  MIN  RANGE  ANO  MAX  RANGE 
C  ENGAGEMENT  TIMES 

TRNCUPKTB(IC2) 

IST-(NSYS-1)*HNWP 

NRG^IRW8(NSYS,NWP) 

tSRM.(NSYS-1)’1S.(NWP-1)*e.NRG 

BR1.(NSYS-1)‘lSHNWP-1)lA»1 

RMIN.RS/ISR1) 

RMAX-RS(ISRm) 

TMM.TEMlNBtBT) 

TMAX-TEMAXB(IST) 

CALL  TSHOOT  faMBLRMAXJ 
ELSE 
MOOEN.1 
ENOF 
ENOF 
ENOF 
135  CONTINUE 
ENOF 

C  ENO  LOOP  10 

C  END  OF  TARGET  KILLED  AND  SYSTEM  RE-MOOED 

TRMFB(K)-rriME*OTIME*STIME 
FJMOOENEM.EQ.31  MOOEN-3 
MOOEFBIIQ.MOOEN 
F  (MOOEF.EQ.9)  MOOEFB(K)— 9 

C  WRITE  SHOT  OUTPUT  INFORMATION 
F^YS(NTG2).EO.O)  THEN 

IF^IFAPS.NE.-1)  IFAPS~3 

E  CALL  OUTPUT  1  (ITIME.1  JCNSYS,NWP.IENERGY.TRNQ>RG.IRSYS(NTG.1), 
A  FAPSJKILL) 

C 


C 

c 

C 


c 

c 

c 

c 


ELSE 

ENO  OF  ITS  TIME  TO  KILL  THE  TARGET 

CHECK  TO  SEE  F  TARGET  WAS  KILLED  BY  ANOTHER  WEAPON  DURING 
THIS  ENGAGEMENT  PERIOD.  F  IT  WAS.  CHECK  TO  SEE  F  THIS  WEAPON 
CAN  REDESIGNATE 

NTG-ITQTB(K,1) 

F  (IHSYSfNTG^.EO.O)  THEN 

THIS  TARGET  -IAS  JUST  BEEN  KILLED.  TRY  TO  RE-DESIGNATE 
F  THIS  SYSTEM  JUST  RE-OESIGNATEO,  HOWEVER,  MUST  WAR 
3  SECOND  RE-DESIGNATION  TIME  PERIOO  BEFORE  DOING  R  AGAIN 
F  (MODEF.EQ.B)  THEN 
TCAN.TR0ES8(K) 

ELSE 

TCANHJ.0 

ENOF 

NWP4TGTB(IC2) 

NSYS-BSYS(IO) 

MILTYPE.MtB(NSYS.NWP1 
F  (Mtt.TYPEfcQ.1JLN0.RlME.QE.TCAN)  THEN 
THIS  WEAPON  IS  MAN-IN-LOOP.  R  CAN  RE -DESIGNATE.  BUT  NEEDS 
AT  LEAST  3  SECONDS  FOR  GUNNER  TO  OVERCOME  HIS  SURPRISE  ANO 
QUICKLY  ASSESS  THE  SITUATION.  THEN  FIND  ANOTHER  TARGET. 

FIND  TIME  TO  IMPACT 
TRDES8(K).RIME*3.0 
THIT.TRMFB(K)*RIME 
IWANTM) 

F  (THR.GT.3.01  THEN 
THERE  IS  ENOUGH  TIME 
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oo  o  osoosoo  ooooo  ooooo  o  ononn  ooo  o  oonooo  o  ooo 


THIT.THIT-10 


OETERMWE  ENGAOMENT  MODE  CYCLE  TIME  TO  THIS  TARGET 

BASED  ON  INTERPOLATING  BETWEEN  WIN  RANGE  ANO  MAX  RANGE 

ENGAGEMENT  TIMES  ANO  TARGET  RANGE 

MYWP-NWP 

IST»(NSYS-11*S-MYWP 

NRCUNRWB<NSYS.MYWP) 

tSRM-INSYS-  U’lA.jMYWP-  tl*S*NRG 

ISR1.(NSYS.|)M*t(MYWP-1)l*»1 

RMIN-REUISR1) 

RMAX-R&tSRM) 

TMIN-TEMINBIIST) 

TM  AX-TEM  AXBI  1ST) 

CAU  TSHOOT%MM.RMAXTMIN,TMAX.TRNaSTBIE) 

FINO  DISTANCE  MISSILE  IS  FROM  TARGET 
DMSL.TRNG/STIME-THIT 

MISSILE  CAN  BE  RE-DESIGNATED  TO  FINO  ANOTHER  RED 
TARGET  WITHIN  THIS  DISTANCE  FROM  THE  OLD  TARGET 
BUT  NOT  BEYOND  SYSTEM  MAXIMUM  RANGE. 

FMO  CLOSEST  OTHER  RED  TARGET 
CURRENT  TARGET  X.Y  POSITION 
XT-RXYA(NTaij 


ie- 1 nm)  iimu.  i.i 

I- ITRKBINSYS.II 
F«INSYS-ir3*NWP 

II- |RNGB<ISR0F,1) 


.  RED  TARGETS  FOR  CLOSEST 
ORMM-1.0E12 

FIND  ANGLE  ANO  RANGE  TO  ALL  FRIENDLY  ANO  THREAT  VEHICLES 
SO  THAT  MASKING  CAN  BE  EVALUATED 

KSIOE-1 
MYSIOE-I 
I8LUE-K 

CAU  VMASK  (KSIOE.BLUE) 

EVALUATE  OBSCURANTS  ALSO 

IF  THIS  BLUE  SYSTEM  IS  OUST  SENSITIVE  IN  TARGET  ACQUISITION 
OR  TRACKING 

FIND  ANGLE  AND  RANGE  TO  AU  OUST  PUFFS  SO  THAT  MASKING  CAN  BE 
RE-EVALUATED 
RANGE- TRNG"1000.*1.1 
ITRKI-ITRKBINSYS.I) 

WNG1- 
CANRO-T 
IF  (IRNG1.EQ.0)  ICANRO-O 
f  (ICANRO.EO.O.OR.ITRK1.ED.O) 

A  CALL  DM  ASK  (XB.YB.RANGEXI.OAO) 

CAU  OOOKMASK  (XB.YB.RANGE.0J3.O.0I 

IF  THIS  BLUE  SYSTEM  IS  ENGINE  SMOKE  SENSITIVE  IN  TARGET  ACQUISITION. 
TRACKING  OR  RANGING. 

FIND  ANGLE  ANO  RANGE  TO  AU  ENGINE  SMOKE  PUFFS  SO  THAT  MASKING 

CAN  8E  RE-EVALUATED 

ITRK2.ITRKWNSYS.2) 

ISROF-(NSYS-11*3*NWP 

IRNG2-IRNGB(ISRGF,2) 

CANRE-i 

IF  (IRNG2.EO.O)  CANRE-0 
IF  (CANRE.EQ.O.OR.ITRK2EO.O) 

A  CAU  ESMASK  (XB.YB.RANGE.0.0,0.0) 

IF  THIS  BLUE  SYSTEM  IS  SMOKE  GRENADE  SENSITIVE  IN  TARGET  ACQUISITION. 
TRACKING  OR  RANGING, 

FIND  ANGLE  ANO  RANGE  TO  AU  SMOKE  GRENADE  CURTAINS  SO  THAT  MASKING 
CAN  BE  RE-EVALUATED 
ITRK3-ITRKBJNSYS.3 
ISROF-ff — J 
IRNG3-V 
CANRS-1 

F  (IRNG3.EG0)  CANR3-0 
f  (CANRS.EQ.O.OR.ITRK3.EQ.D) 

A  CALL  GRMASK  (XB.YBRANGE.0.0,0.0) 

IF  THIS  BLUE  SYSTEM  IS  ARTILLERY  SMOKE  SENSITIVE  IN  TARGET 
:quisition, 

TRACKING  OR  RANGING, 

FIND  ANGLE  ANO  RANGE  TO  AU  ARTILLERY  SMOKE  CURTAINS  SO  THAT 
ASKING 

CAN  BE  RE-EVALUATED 

ITRK4-ITRK8(NSYS.4) 

ISR0F-(NSYS-1)*3-NWP 
IRNG4-IRNGB(ISROFv4) 

ICANRflrl 

IF  (IRNG4.EQ.0)  CANRA-0 
IF  lCANRA^Q.O.ORITRIU.EO.O) 

A  CAU  ASMASK  IXB.YB.RANGE.0.0.0.0) 

0O11JREO-1.NR 
F  (IRSYS(JRED2).EaO>  GO  TO  11 
XNT.RXYAjjflEO.1) 

YNT -RXYAIJflED.2) 

0NT-((XNT-XT)"2.fYNT-YT)~2)"5 
DNB-iaNT-XB)~2»(YNT-YB)“3~.5 
RANGE -ONB 

CHECK  TARGET  SIGNATURE  AGAINST  DETECTABILITY  AND  SKIP  IF 
NOT  DETECTED 


K  nc-»N.UAieu 
■ITRKBINSYS.3) 
-(NSYS-1  )*3*NWP 
u«NG8<ISROF.3) 


IF  (PN8.LE.RMAXXND.DNT.LE.DMSL)  THEN 
DlVIOE  BY  A  RANDOM  FACTOR  SO  EVERYONE  DOES  NOT 
TAKE  THE  SAME  ALTERNATE  TARGET 
RRR-RNOO 
DNT-ONTHRR 
IF  (DNT.LT .DRMIN)  then 
EVALUATE  MASKING 
FIND  ANGLE  TO  THIS  TARGET 
TOP.YNT-YB 
BOT-XNT-XB 

IF  (BOT.EO.O.O)  B0T-80T-  001 
DIR-ATAN(AaS<TOPyABS<BOT))MBOJPI 
IF  (BOT1T.O.O)  THEN 

IF  (TOP.LT.O.O)  OFWOtfMAO, 

IF  TOP.GT.O.O)  OIR-180.-OIR 

ELSE 

IF  (TOP1T.O.O)  DFU360.-DIR 
ENDIF 

CONVERT  THIS  COORDINATE  SYSTEM  DIRECTION  TO  AN  AZIMUTH 
CAU  FAZ  (DtfLAZIN) 

AT  THIS  POINT  EVALUATE  TERRAIN  ANO  FRIENDLY/ENEMY  VEHICLE 
MASKING  ANO  OBSCURANTS  ANO  DROP  THIS 
TARGET  IF  UNOBSERVABLE 
JSKIP-1 

TERRAIN  MASKING 

IF  (ITER.EQ.1)  CAU  TERRMASK  (XB.YBXNT.YNT.JSKIP) 

IF  (JSKIP.EQ.O)  GO  TO  1 1 

CAU  VSEE  (UYSIDE.KJ  RED. RANGE  .AZIN  JSK  IP  ,NB.  NR) 


BURNING  VEHICLE  MASKING 
CAU  COOKSEE  (XB.YB JtNT.YNT XZIN  JSKIP) 

IF  (JSKIP.EQ.0)  GO  TO  11 


C 

C 


OUST  MASKING 

RE  EVALUATE  AU  OUST  PUFFS  WITHIN  RANGE  OF  THIS  TARGET 
JOUST-1 

IF  ( CANRD.EQ.O.OR.ITRK1  .EQ.pl 
A  CAU  DSEE  (XB.YB  JCNT.YNT .AZIN  JOUST) 

r  THERE  IS  DUST  N  THE  WAY  ANO  BLUE  CANNOT  SEE  OR 
TRACK  THROUGH  IT.  THE  TARGET  IS  MISSED 
IF  ( JOUST EQ.0XND.ITRK1  EGO)  JSKIP-0 


CAU  CHECKSIG  (1JURED.RANGEJSKIP) 
IF  (JSKP.EQD)  GO  TO  11 


C  IF  JSKIP-1  THERE  MAY  8TXX  BE  OUST  IN  THE  WAY,  BUT  BLUE  CAN  SEE 
C  THROUGH  IT.  THE  QUESTION  REMAINS  WHETHER  BLUE  CAN  TRACK  THROUGH 
C  THE  DUST. 

f  ( JOUST. EGOXNO.CANRO.EQ.O)  JSKIP-0 
C  IF  JSKIP-1,  THERE  IS  NO  DUST  OR  TRACKING  PROBLEM 
C  ENGINE  SMOKE  MASKING 

C  RE-EVALUATE  AU  ENGINE  SMOKE  PUFFS  WITHM  RANGE  OF  THIS  TARGET 
JENO-1 

IF  (CANRE.EaO.ORITRK2.Ea.OI 
A  CAU  ESSEE  (XB.YBJMT.YNTXZINJENG) 

IF  (JENG.EQ.0XND.ITRK2.EG0)  JSKIP-0 
F  (JENG.EGO.AND.CANRE.EO.O)  JSKIP-0 

C  SMOKE  GRENADE  CURTAIN  MASKING 

C  RE-EVALUATE  AU  SMOKE  GRENADE  CURTAINS  WITHIN  RANGE  OF  THIS  TARGET 
JSMK-1 

IF  (CANRS.EaO.OR.ITRK2EOJ)) 

A  CAU  GRSEE  (XB.YB.XNT.YNT XZINJSMK) 

IF  (JSMK.EQ.OXNO.ITRK3.EQ.O)  JSKIP-0 
IF  (JSMK.EGOXND.KJANRS.EQ.O)  JSKIP-0 

C  ARTILLERY  SMOKE  CURTAIN  MASKING 

C  RE-EVALUATE  AU  ARTILLERY  SMOKE  CURTAINS  WITHIN  RANGE  OF  THIS 
TARGET 
JART-1 

IF  (CANRA.EQ.O.OR.ITRM.EO.O) 

A  CAU  ASSEE  ( XB.  YB.XNT.YNT.AZIN  J  ART) 

IF  (JART.EQ.0.AND.ITRK4.EQ.0)  JSKIP-0 
IF  (JARTEO.OXNO.CANRA.EQ.O)  JSKIP-0 

C  ENO  OF  OBSCURANT  RE-EVALUATION  FOR  M-M.  WEAPON 

IF  (JSKtPEGO)  GO  TO  11 

C  TARGET  CAN  BE  SEEN  ANO  IS  CLOSER  TO  OLD  TARGET 
DRMIN-ONT 
IWANT-JRED 
RNG-DNB 
ENDIF 
ENDIF 

11  CONTINUE 

ENDIF 

IF  (IWANT.NE.O)  THEN 

C  THERE  IS  ANOTHER  TARGET  TO  DESIGNATE 

C  FIND  PROBAB1TY  OF  KIUING  THIS  NEW  RED  TARGET 
NITSYS-IRSYS(IWANT,  1) 

CAU  FINDPK  (KSIDE.NSYS.NITSY 
PKTBIK.U-PKIT 
PKT8(k^)-RNG 
MODEN-8 
STIME-TH  IT-3.0 
ITGTB(K.1)-IWANT 

C  TRMFB(K).ITIME-IDTIME-STTME 


SYS.NWPHRNGHNGPKIT.IWANT) 
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OO  o  oooooo  ooooooo-  oo  oo  o  o  o  o  o  o  oo  o  oo  oo 


w^^^blSex  re-oesignates  at  red  \iwant 

WRITE  (1ft*)  •BLUE  'X'  H£ DESIGNATES  AT  RED  '.IWANT 

ELBE 

THEN  RESe5»CH **  001  CURf,ENT  ENGAGEMENT  MODE  TIME 

uoqcN-i 

BLUE  EXPENOB  ONE  SHOT 
NWR-rratBouj 

NTG-ITGT8(K,1J 

NSHOTBXNWP)*N3HOTB<K.NWP)*1 

IAUR<NTG).IAMR<NTGI-1 

IF  (IaMR(NTG).LT.O)  IAMR(NTQH) 

FMO  SEARCH  AREAS  FOR  RE-MOOING  INFORMATION 

iSm.epRMjK.1) 

ARGT  1-K)PRIME[IC2> 

ALFTwaSECONUflCl) 

ARGT2.IESECOlS)(IU) 

IF  (ALFT1.GTARGTI)ARQT1-ARGTh3S0. 

IF  (ALFT2.GT.ARGT2iARQT2.ARGT2.38Q. 

IF  flBPRIME^EoTBSECONOXIMNO.aPRAlE^ 
EO.^E(X3NO(IU))  N 

ARGTM1.0 

ENOIF 

DETERMME  ENO  TME  OF  SEARCH  MOOE  CYCLE 
STIMEatfARGT  1  -ALFT  1).(ARQT2- ALFT2))/SRCHB(NSYS) 

ENOIF 

trmfbjkhtme»dtme*stme 

- FB<I<)-N - 


MOOEFB 


-MOOEN 


WRITE  SHOT  OUTPUT  MFORMATION 
JKILU-1 
FAPS-1 

CALL  OUTPUT  1  (IT1ME,1.K,NSYS.NWP,0,TRNG.NTG,IRSYS<NTQ,1), 
t  FAPSJKILL) 

ELSE 

F  (IAMOUT.EQ  1) 

A  WRITE  (\1  BLUE  ’X'  WEAPON  ’.NWP,'  OUT  OF  AMMO- 
A  WRITE  (10.1  ‘SLUE  X  WEAPON  JWWP:  OUT  OF  AMMO' 

IAMOUTnO 

ENOF 

ENO  OF  IT  CAN  BE  RE -DESIGNATED 
ENOF 

ENO  OF  THIS  TARGET  HAS  JUST  BEEN  KILLED 
ENOF 

ENO  LOOP  9 

ENO  OF  REDESIGNATING  MOOE 
ENOF 

ENO LOOP  8 

ENO  OF  ENGAGEMENT  MOOE 
O  CONTINUE 

ENO  LOOP  1 

ENO  OF  BLUE  SYSTEM  FIRE  MOOE  LOOP 

NOW  00  RED 

RED 

OO  I180K.1.NR 

LOOP  1 

CHECK  TO  SEE  F  THIS  UNIT  IS  KLLED  AND  SKIP 

WATTE  r.TKILL  STATUS  RED  X'  ALIVE1 

BUT  BEFORE  SKIPPING  IT.  SEE  F  IT  WAS  A  FWE-AND- FORGET 

WEAPON  ANO  IN  THE  LAST  SECONOS  OF  ENGAGMENT  MOOE  OR 

RE-ENGAGEMENT  MOOE. 

MOOEF-MOOEFRIK) 

F  nRSYSOCJBEOOl  THEN 
NSY3-IRSYSX1) 

F  (MOOEF.EOi.ORMOOEF.EOS)  THEN 
NWP.ITGTR(K_2) 

MILTYPE-MILRINISYSNWP) 

IF  (MILTYPE.EG.O)  THEN 
CALCULATE  TIME  TO  BULLET  MPACT 
TCHANGE-TRMFRjK) 

BORE.BORER(NSYS.NWPV1000. 

TOF-TOFRINSYSJWP) 

TRNG-PKTR(Ki) 

TTRNG-TRNGIBORE-TOF*  1 .0 
IF  (ITIME.GE.(TCHANG£-TTRNG1)  THEN 

THIS  WEAPON  IS  NOW  IN  SACRIFICE  MOOE  SINCE  IT  IS  OEAO  ANO 
HAPPENED  TO  GET  A  FIRE-AND-FORGET  SHOT  OFF  FIRST 
MOOEF.9 

MOOEFRIKHMOOEF 
NSH0TRijCNWP)«NSH0TR(K,NWP)-1 
CALL  0UTPUT2  ((TlMEiXO) 

;  WRITE  r.1 '  RED  X  MAKES  SACRFICE  SHOT 

WRITE  (10.1 1  RED  X  MAKES  SACRFICE  SHOT 
ELSE 

MOOEFR(KW> 

!  FIRE  MOOE  SET  TOO -KILLED  WHILE  ENGAGING  A  TARGET 

ENOF 


ENOF 

ENOF 

ENOF 

F  (ASYS(Ki).EQ.(LANOJJOOEFNE9)  GO  TO  1180 
F  (MOOEFEQ.-8)  THEN 

C  REEVALUATE  REENGAGEMENT  MOOE  TO  SEE  F  THIS  RED  TARGET 
C  WAS  JUST  KILLED 


IFJ»|YSJITGTR<K.1).2>.EQ.1)  THEN 


C 

C 

C 

C 

C 

c 

c 

C 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 


MOOEFH0QM 
WRITE  (10.1  RED  X  RE-ENGAGES  BLUE  .ITGTR(K.1) 

ELSE 

THIS  TARGET  WAS  KILLED  LAST  GO  AROUNO  SO  FMO  ANOTHER 
M00EF.1 
MODEFR(K).1 
NSY$.«SYS(K,1) 

ALFT1.«PRIME(K,1) 

ARGTUMPRIMELKi) 

F  (ALFT1  .GT ARQT1)  ARGTl.ARGTl.380. 

ALFT2>IRSECONO<K,1) 

ARGT2.IRSECONOX2) 

F  (ALFT2.GTARGra_ARGT2-ARGT2*38a 
F  («PRM^1).EO.nSECOND(K.1)ANO.IRPfllME(Ki). 

8  EQ.IR3E00N0(Ki))  THEN 
ALFT2-IJ) 

ARQT2— 1 J) 

ENOIF 

OETERMME  ENO  TME  OF  SEARCH  MOOE  CYCLE 
8T1ME.((ARGT)  -ALFT1  WARGT2-ALFT2)ySRCHR(NSYS) 

ENOF  ' 

ENOF 

MOOEF-MOOEFR(K) 

WRITE  (V)  FIRE  MOOE  RED  '.MOOEF 
NCR  EASE  CYCLE  TIME  M  THIS  MOOE 


WRITE  (M  *CYI 


TCFMFUK.MOOEFUOT 
:  TME  RED  \TCFMR(K 


RXMOOEF) 


F  (MOOEF. EG  1  OR.UOOEF.EQA.ORMOOEFLQ.5I  THEN 

SEARCH  MOOE  (1I0R  BALK  MOOE  (41  OR  WAIT  MOOE  (5) 

BALK  MOOE  IS  ACTUALLY  RE-SEARCHING.  BUT  IS  BROKEN  OUT 
FOR  DUTY  CYCLE  ACCOUNTABILITY 

WATT  MOOE  IS  ACTUALLY  RESEARCHING.  BUT  IS  BROKEN  OUT 
FOR  DUTY  CYCLE  ACCOUNTABILITY 

CHECK  FOR  MOOE  CHANGE  AT  ENO  OF  SUB-CYCLE 
TCHANGE.TRMFROO 

WRITE  (V)  TIRE  MOOE  CHANGE  RED  '.TCHANGE 
TNEXT-ttlME.IOTIME 
F  (TCHANGELE.TNEXT)  THEN 

LOOPS 

ITS  TME  TO  FMO  A  TARGET 

FMO  ANGLE  ANO  RANGE  TO  ALL  FRtNOLY  ANO  THREAT  VEHICLES 
SO  THAT  MASKING  CAN  BE  EVALUATED 

KSIDE-2 

IRED-K 

MYSBCaS 

CALL  VMASK  (KSOE.RED) 

FMO  ALL  BLUE  TARGETS  M  PRMARV  AND  SECONDARY  ZONES 
OUT  TO  MAX  RANGE  FOR  EACH  ON-BOARD  WEAPON 
NSYS-HSYSjK.1) 

NWEAP.NWWNSfYS) 

NRNG1-NRWH(NSYS.1) 

RMAX1-0.0 

RMAX2-O.0 

RMAX3-0.0 

NUM1«0 

NUM2-0 

NUM3-0 

ISRnfl  11*18t(J  1)*9»K 

WHERE  (.SYSTEM  FILE  (10  MAX);  J-SYSTEM  WEAPON  (3  MAX); 

K.  WEAPON  RANGE  (8  MAX);  N.  TARGET  (2*10  MAX) 

NUM  MNSYS-1)’ 1  MI-1  )*6H4RNG1 
RMAXI-RR(NUMI) 

WRITE  r.1  *RMAX1,,RMAX1.RR(2S1.RR(22) 

WRITE  M  *NSYS*,NSYS,,NWEAP]NWEAP,INRNG1‘>WNG1.‘NUM1‘A(UM1 
WRITE  r.1  ’NSHO  TFT.NSHO  TR(K,  1 ) 

IF  (NSHOTR(K,1)XE.O)  THEN 

RMAX1.0.0 

NUM1-0 

ENDF 

IF  (NWEAP.GEi)  THEN 
NRNG2*NRWR(NSYSJ2) 

NUM2HNS  YS- 1 1  *  1 8H2- 1  )1S(NRNG2 
RMAX2.RR(NUM2) 

WRITE  (V)  NSYS'.NSYS,'NWEAP.NWEAP.-NRNG2.NRNG2.NUU2.NUM2 
WRITE  r1  'NSHOTR.NSHOTRJKi) 

IF  (NSHOTR(Ki)lEO)  THEN 
RMAX2.0.0 
NUM2-0 
ENDF 
ENOF 

IF  (NWEAP.EQ.3)  THEN 
NRNG3^RWR(NSYS,3) 

NUM3^NSYS-1)*1SH3-1)*8HJRNG3 
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iCfeno  ooooo  oonoo  o  oooon  o  o  on  on 


►•NWEAP.-NHNGS.NRNGXNUMSr.NUMa 


RMAXVRR(NUM* 

WRITE  r.niSvisNSYa.'Nw 

writeV.1)  WSHOTR-.NSHC  . 

FjteHOTR<K,a).LE.O)  TH&i 

NUMHO 
ENOF 
ENOF 

SEARCH  ALL  ZONES  BASED  ON  ZONE  AZIMUTHS 
OVERl.0 
OVERM 

ALFT1.«PRWE(K,I) 

AROTUMPfliMElKi) 

ALFT2»nSECONO<K,1) 

argt2.wk  bdmKJj 
F  (ALFTI.QTMOn)  »Y ER1-I 

f  Ialft2.qt>rqt»  overz-i 

IF  (ALFT1.GTJWGT1)  ARGTl.JkFIGTl.380. 

F  (ALFTZ.GT AflGTjj  ARGTZWU»T2.3eO. 

IF  (1RPRIME(K,1).EQ.nSEC0N0<K,1).AN0.IRPRIME(1C2). 
*  EQ.nSE&MCXIU))  THEN 
ALFT2-U) 

ARQTfc-14) 

ENOIF 

GET  X.YCOOR0MATES  FOR  THIS  REO  UNIT 
Xa-RXVAM.1) 

Y8-nxY/Ckij 
INITIALIZE  PRORJTE3 
NTGT1.0 
PRM.Q 
MYWPl-0 
NTGTZH) 

3EC-0.0 

MVWPZMJ 

NTQT1U) 

THIRDMJlO 

MYWP3-0 

TRNQ1a&0 

TRNGZMLO 

PKWP1-0.0 

PKWP2-0.0 

PKWPMO 


!  TO  ALL  OUST  PUFFS  SO  THAT  MASKMQ  CAN  8E 


F  THIS  REO  SYSTEM  IS  OUST  SENSITIVE  M  TARGET  ACQUISITION. 
TRACKING  OR  RANGING. 

FINO  ANGLE  ANO  RANGE  1 
EVALUATED 
ITRK1-ITRKFVNSY3.1) 

3fiOF^NSYS.1)-3*1 
IRNQ11.1 
BNG1Z-1 
BNG13.1 

BNGl  URNOR/SROF.I) 

IF  (NWEAP.GEJ)  IRNGl*JRNGR((ISROF.1),1) 

F  (NWEAP.GT.2j  BNGl3.«NGR<0SROF*2j.lJ 


F  ((F  Q11ECLO.ORBNG12EQ.O.OR.IRNG11EQ.O)  CANRO-O 
IF  (CANRO.EQ.O.OR.ITRK1  .EQ.OI 
A  CAU.  OMASK  (XB.YB.RMAX1  JtUAX2J*UAX3) 

CALL  COOKMA3K  (XB.YBRMAX1.HI4AXZJWIAX3) 

IF  THIS  BLUE  8YSTEM  IS  ENGINE  SMOKE  SENSITIVE  M  TARGET  ACQUISITION. 
TRACKING  OR  RANGING. 

FIND  ANGLE  ANO  RANGE  TO  ALL  ENGINE  SMOKE  PUFFS  SO  THAT  MASKING 

CAN  BE  EVALUATED 

ITRK2.rTRKR(NSY32) 

GR0F^NSV»1)*S*1 

IRNG21.1 

BNG22.1 

RNG23.1 

if  mwe jEotg  mmsStjm&tymaF+na 

FjNWEAPQTJfl  RNG23-RNGR(!l3RQF*2j3 

IF  (IRNG2I.EQ.O.ORIRNG22.EO.O.OH.FING23.EC1.0)  CANRE-0 
IF  (ICANREEOT>.OaiTRK2.EQ.O) 

A  CALLESMASK(X&YBJU4AX1JUMUCLRMAX3| 


F  THIS  REO  SYSTEM  IS  8MOKE  GRENADE  SENSITIVE  N  TARGET  ACQUISITION. 
TRACKING  OR  RANGING, 

FWO  ANGLE  ANO  RANGE  T 
CAN  BE  EVALUATED 


:  TO  ALL  SMOKE  GRENADE  CURTAINS  90  THAT  MASKING 


ITRKJ.[TRKR(NSYS.3) 

ISROF^NSYS-ICS*! 


RNG31.1 
IRNG32-1 
IRNG33.1 
IRNG31. 

IF  WWEAPA_ 

IF  MWEAP.GT2 
CANRS.1 

IF  dRNG91EaaORBNG32.EO.O.OR.IRNG3&EaO)  CANRS-0 
IF  (CANRS.EQ.O.ORITRK3.EQ.O) 

A  CALL  GRMASK  (XB.YBJUIAX1RMAX2JTMAX3) 

F  THIS  RED  SYSTEM  IS  ARTILLERY  SMOKE  SENSITIVE  IN  TARGET 
CQUISITION, 

TRACKING  OR  RANGS 


C  FINO  ANGLE  ANO 

MASKMQ 


INQMI1 

RANGE 


TO  ALL  ARTILLERY  SMOKE  CURTAINS  SO  THAT 


C  CAN  BE  EVALUATED 
ITRK4-ITRKR(NSVS.4) 

ISR0f.(NSYS-1)‘3.1 

IRNG41.1 

IRNG42.1 

«NG43»1 

«NG41.BNGR(tSR0F  4) 

F  (NWEAP.GE2)  WNG4Z.WNGfl<(ISR0F.1L4l 
F  (NW£AP.aT5|  RNG43.FMGR(jlSR0F<2Uj 

canfuui 

f  (IRNG41  .EQ,Q.OR.BNG42  Eao.OR.BNG41EQ  CANRJUO 
F  (ICANRAEQ.O.ORITRK4.Eaa 
A  CALL  ASMASK  (XB.YBRMAX1RMAX2RMAX3) 

C 

OO  1148  J.1.NS 

C  LOOP  4 

C  CHECK  TO  SEE  F  THIS  BLUE  UNIT  «  KLLED 
F  (IBSYSIJ.2>.EQ.aOR.ISSYS(J,n.GT.10|  GO  TO  1MB 
C  FIND  THIS  BLUE  UNITS  X.Y  dOOROMATCS 
XR.BXYAIJ.il 
YR.8XYA(JJn 

C  FINO  RANGE  TO  THIS  TARGET 
RANGEH(XR-X8)"2.fYR-YB)"3~.5 
C  WRITE  r  .*1  RANGE  TO  BLUE' JRANQE 

C  CHECK  TARGET  SIGNATURE  AGAMST  DETECTABILITY  ANO  SKIP  IF 
C  NOT  OETECTED 

CALL  CHECKSIG  (2JURANQEJSKIP) 

IF  (JSMP.Ea.OI  GO  TO  1148 

C  F  THIS  TARGET  IS  OUTSCE  THE  RANGE  OF  ALL  WEAPONS  SKIP  IT 
C  WRITE  Cl  RANGERANGE.RMAX1'RMAXt.RMAK7RMAX2: 

C  A-RMAXJRMAX3 
JSK1P-0 

F  ((RANGE'IOOaiXERMAXI)  JSWP.1 
F  RANGE-1000.  .LERMAX2J  JSWP.1 
F  ((RANGE ‘lOOO  l.LE-RMIOaj  JSKF.1 
C  WRITE  (Y)  -RANGE  SKIP  -.J8KF.-  O.YES 
F  USKIPiO.OI  GO  TO  1148 

C  TARGET  IS  WITHIN  range  OF  one  of  these  weapons 
C  F  THIS  TARGET  IS  OUTSOE  THE  FIRE  ORDERS  RANGE  WMDOW  SKF  IT 
|.ORJ»NQE.QT.WRNQROC2))  JSKF4) 


C 

C 


C 

C 

C 

C 

C 


_  ) TARGET 

TOP.YR-YB 
BOT.XR-X8 
WRITE  Cl  -BOrSOT 
F  (BOT.E6.0.0)  BONSOT..001 
DIR.ATAN(ASS{TOPVABS<aOT))-1AOJPI 
IF  (BOTLTOO)  THEN 

F  (TOPXT.C.  a  D4HOAH1M. 

F  (TOP.GTJJ.OJ  OB-180.-OIR 

ELSE 

f  (Toplt.0.0)  ovwm-on 
ENOF 

CONVERT  THIS  COOROMATE  SYSTEM  OnECTION  TO  AN  AZMUTH 
CALL  FAZ  (DALAZMJ 

AT  THIS  POSIT  EVALUATE  TERRAM  ANO  FRENOLY/ENEMY  VEHICLE 

MASK  MO  ANO  OBSCURANTS  ANO  DROP  THIS 

TARGET  FROM  ZONE  F  UNOBSERVABLE  (SMOIC  NOT  DONE  YET) 

TERRAM  MASKMQ 

F  (ITEREai)  CALL  TERRMASK  (XRYRJCB.YBJSKF) 
FtJSWPEQJIH - 


)  GO  TO  1148 
VEHICLE  MASKMQ 

CALL  VSEE  (MYSDEJURANQEJI2BUSKFJIBJ4R) 

BURN  MG  VEHICLE  MASKMQ 
CALL  COOKSEE  (XB.YB JCR.YRJLZINJ8KP) 

F  (JSKF-EOO)  00  TO  1148 

OUSTMASMNQ 

F  THIS  REO  SYSTEM  «  OUST  SENSITIVE  M  TARGET  ACQUISITION. 
TRACKING  OR  RANGING. 

EVALUATE  ALL  OUST  PUFFS  WITHM  RANGE  OF  THIS  TARGET 
J0UST.1 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


JOUST) 

_ _  _.  r  ANO  rtED  CANNOT  SEE  THROUGH  IT 

SKF  THIS  TARGET 

F  (JOUST.EQ  OJINO.rmK1  EO.O)  GO  TO  1148 

THERE  MAY  BE  DUST  M  THE  WAY.  BUT  REO  CAN  SEE  THROUGH  IT. 

THE  QUESTION  REMAMS  WHETHER  RED  CAN  RANGE  OR  TRACK  THROUGH 
THE  OUST.  F  JOUST-O  THERE  IS  DUST  M  THE  WAY. 

ENG  ME  SMOKE  MASKMQ 

F  THIS  REO  SYSTEM  IS  ENGME  SMOKE  SENSITIVE  IN  TARGET  ACQUISITION. 
TRACKING  OR  RANGING, 

EVALUATE  ALL  ENGINE  SMOKE  PUFFS  WITHM  RANGE  OF  THIS  TARGET 
JEN  CHI 

F  (CANRE.EQ.O.OR.ITRKZEO.01 
I  CALL  ESSEE  (XB.YB  XR.YR  JCZINJENG) 

F  (JENG-EQ.OJLNO.ITRK2£Q.O)  GO  TO  1148 

SMOKE  GRENADE  CURTAIN  MASKMQ 

IF  THIS  REO  SYSTEM  IS  SMOKE  GRENADE  SENSITIVE  M  TARGET  ACQUISITION. 
TRACKING  OR  RANGING. 

EVALUATE  ALL  SMOKE  GRENADE  CURTAINS  WITHM  RANGE  OF  THIS  TARGET 
JSMK.1 
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f  (CANRSEQ0OR.ITRK3.EQ0) 

*  CALL  GRSEE  (XB,VBJCRYfU2WJS*IK) 

If  (J3MK.EaOANO.rmK3.EOO)  Solo  1US 

torn  i  Coy  smqkc  MASKING 

If  THIS  RED  SYSTEM  IS  A« TILERY  SMOKE  SENSITIVE  IN  TARGET 
OUI8ITION. 

TRACKING  OR  kANQINO 

EVALUATE  ALL  ARTILLERY  SMOKE  PUFFS  WITHIN  RANGE  OF  THIS  TARGET 
JART.1 

IF  (lCANRA.EO.O.OR.rmiU.EQ.0) 

.  AS  SEE  LXB.Ya.XftYRXtlN.JART) 


A  CAU 


ASSEE  (XB.YB.XftYRjkZINJAHT) 

IF  (JAflT-£Q.O.ANO.ITRK4.£QO>  GO  TO  1 148 


WZONE-3 

IF  IAZM.QEJALFT1JMOXQN.LEJCRGT1I  INZONE-1 

IF  (OVERlEaiJCNOAZIN.U.(ARGTt.mO))  INZDNE-1 
TARGET  S  M  PRIMARY  ZONE 
IF  (AZW.GEJ1LFT2JM0.AZ1N. IE  J1RGT2)  W20NE-2 

F  (OVER2.featANOJIZIN.L£.(MWT2-3aaO))  INZONE-2 
TARGET  B  IN  SECONDARY  ZONE 

AT  THIS  POINT  EVALUATE  TERRAIN  MASKING  AND  OBSCURANTS  AND  DROP 
TARGET  FROM  ZONE  IF  UNOBSERVABLE  (NOT  DONE  YET) 

WRITE  (V)  -BLUE  ‘X  MZONE  7  ’.  INZONE 
IF  (IN20Nfc.GE.1)  THEN 

LOOPS 

GIVE  THIS  TARGET  A  PRIORITY  NUMBER 
AND  IN  THE  ENO  SELECT  ONLY  THE  HIGHEST  PRIORITY  TARGET 
TARGET  PRIORITY  B  A  COMPOSITE  OF  THE  PROBABILITY  OF  THB 
TARGET  KXXMO  YOU  TIMES  YOU'RE  PROBABILITY  OF  KILLING  IT. 
NITSYS.BSYSU.1) 

CYCLE  THROUGH  ALL  WEAPONS  ON  YOUR  SYSTEM  FOR  THE  ONE  WITH  THE 
HIGHEST  PK  AGAINST  THB  TARGET  ANO  EVALUATE  WHETHER  YOU  WILL 
SHOOT  IT  BASED  ON  NUMBER  OF  AVAAABLE  ROUNDS  OF  AMMUNITION 
ANO  THE  PK  AGAINST  THB  TARGET 
PKIT  1-0.0 
PKIT2-0.0 
PKIT3-0.0 
KSIOE-2 
PKITM-OO 
IWEAPM3 
001141  NUM-U 

LOOPS 

UM.E0.1  AN0.NUM1.EQ.0)  GO  TO  1141 
UM.EO^ANO.NUM2.EQ.«  GO  TO  1141 
,  UM.E0JLAN0.NUM3.E04  GO  TO  1141 
NUM.E0.1)  THEN 

FINDPK  (K30E,NSY8.NITSYS.NUM,NRNG1,RANGE.PKIT1  J) 

IF  IBTOR(K).6T.aOftlSPOB(J).QTj))  TH^N 


UNSYS.NUM) 

SYS.NUMI 

I  (KSIDEJU.RANGE.BORE.TOF, PKIT  1 ) 


TOF-TOFBJNsYS.NUM) 

CALL  PKMOVE  (KSIOE.IUJUMGE.BORE.TOF.PKm) 

ENDIF 

ENOF 

F  (JDUST  EQ.O.OR.JENG.EQ.O)  THEN 
F  (IRNG11  EQ.O.OR.IRNG21  EQ.O)  THEN 

THERE  B  A  OUST  OR  ENGINE  SMOKE  RANGING  PROBLEM  WITH  THIS  WEAPON 
EVALUATE  M  R  OR  F-A-F 
MLTYPE-M1R(NSYS,NUM) 

F  (MX.TYPE.EQ.O)  THEN 

THB  WEAPON  B  F-A-F,  DEGRADE  PK  BASED  ON  NO  RANGE  KNOWLEDGE 

BORE-BORE - - 

TOF-TOFRO 
CALL  PKLES 
ELSE 

SKIP  THB  WEAPON  SINCE  CAMT  TRACK  THE  TARGET 
PKIT  t -0.0 
ENDF 
ENDF 
ENDF 

NSHOTS-NSHOTR<KJIUM) 

WRITE  (V)  LOG  BOT100G(1.-PKmLPKm'J»KrT1 
F  (PKIT1  jfe.O.O)  THEN 
SKlLL-ij0G(J)l)4.0G(1.-PKrTl) 

ELSE 

SKILL-8808. 

ENDF 

F  (NSHOTS.EQ.Ot  PK(T14).0 
F  (SKX.LGT.18.0t  PKITI-OO 
F  (SKXX.LE.18.0JMD.SKAJ_GT.7.0)  THEN 
It  (SWLL.GT.7.0)  THEN 
F  (SKILLGT4S.0)  THEN 

PSHOOT-rOHOTSBKILL 
PNO-RNDO 

IF  (PNO.GEJ'SHOOT)  PKIT1.0.0 

ENOF 

F  (PKrTI.GT.PKITM)  THEN 
PKITM-PKIT1 
IWEAP-1 
ENOF 
ENOF 

F  (NUM.EG2)  THEN 

CALL  FINDPK  (KSI0EJBYS.Nn'SYS,NUM.NRNG2,RANGE.PKIT2J) 

F  (ISPOR<K).GT.O.Ofl.lSPOB(J).GT.O)  THEN 
MX.TYPE-MXJMNSYS.NUM) 

FJMX.TYPE.EQ.Ot  THEN 
BORE-aORER(NSYS.NUM) 

TOF-TOFRJNSYS.NUM) 

CALL  PKMOVE  (KSIOE.KJ, RANGE. BO RE.T0F.PKIT2) 


ENOF 

ENOF 

F  (JDUST.EO.O  OR.JENG.EQ.O)  THEN 
IF  (IRNG12.EQ.O-OR.IRNG22-EQ.O)  THEN 

C  THERE  B  A  OUST  OR  ENGINE  SMOKE  RANGING  PROBLEM  WITH  THB  WEAPON 
C  EVALUATE  M-R  OR  F-A-F 
MILTYPE-MILRINSYS.NUM) 

F  (MIL TYPE .EO.O)  THEN 

C  THIS  WEAPON  B  F-A-F.  OEGRAOC  PK  BASED  ON  NO  RANGE  KNOWLEDGE 
BORE-80  RERIN.YS.NUM) 

TOF.TOFRINSYS.NUM) 

CALL  PKLESS  (KSIOE.K.J. RANGE. BORE.  T0F.PKIT2) 

ELSE 

C  SKIP  THIS  WEAPON  SINCE  CAN'T  TRACK  THE  TARGET 
PKIT2-0.0 
ENDF 
ENOF 
ENDF 

NSHOTS-NSHOTR(ftNUM) 

C  WRITE  (V)  LOG  B0T?L0G(1  -PKIT2).-PKIT?J>K1T2 
F  (PKIT2.NE.aO)  THEN 
SKlLL-LOG(.01ROa(l.-PKIT2) 

ELSE 

SKX1-8BB8. 

ENDF 

IF  (NSHOTS.EO.O)  PKIT2-0.0 
C  F  ISKXX.GT.16.0)  PKIT2-0.0 

C  F  (SKILLLE.1S.0-ANO.SKILLQT.7.0)  THEN 

C  F  (SKXLGT.7.0)  THEN 

F  (SKILL.GT.45.0)  THEN 

PSHOOT-NSHOTSBKXJ. 

PNO-RNOO 

F  (PNO.Gfc.PSHOOT)  PKIT2-0.0 

ENOF 

F  (PKIT2.GT.PKI7M)  THEN 
PKITM-PKIT2 
IWEAP-2 
ENOF 
ENDIF 

F  (NUM.E0.3)  THEN 

CALL  FINDPK  (KSI06.NSYS.NITSYS.NUM.NRNG3.RANGE.PKIT3J) 

F  (ISPDR(K).GT.O.OftlSPOS(J).GT.O)  THEN 
MX.TYPE-MKJKNSYS.NUM) 

FJMILTYPE.EQ.Ot  THEN 
BORE-BOREFKNSYS.NUM) 

TOF.TOFRINSYS.NUM) 

CALL  PKMOVE  (KSIOE.KJ  JUMGE. BORE. TOF.PK  ITS) 

ENDF 

ENDF 

F  (JOUST. EQ.O.OR.JENG.EQ.O)  THEN 
F  (1RNG13EO.O.OR.IRNG23.EO.O)  THEN 

C  THERE  B  A  DUST  OR  ENGINE  SMOKE  RANGING  PROBLEM  WITH  THB  WEAPON 
C  EVALUATE  M-R  OR  F-A-F 
MX.TYPE-MKJVNSYS.NUM) 

F  (MILTYPE.EQ.O)  THEN 

C  THIS  WEAPON  B  F-A-F.  DEGRADE  PK  BASED  ON  NO  RANGE  KNOWLEDGE 
BORE-BORERINSYS.NUM) 

T0F-T0FR(NSYS.NUM1 

CALL  PKLESS  (KSIOEJUJUMGE.BORETOFJNOT3) 

ELSE 

C  SKIP  THB  WEAPON  SINCE  CANT  TRACK  THE  TARGET 
PKIT3-0.0 
ENOF 
ENOF 
ENOF 

NSHOTS-NSHOTROCNUM) 

C  WRITE  (•.•)  LOG  BO TT. L0G(1  ,-PKIT3).'PKIT3PKIT3 

F  (PKIT3.NE.0.0)  THEN 
SKILLROG(.01)rt.OG(1.-PKIT3) 

ELSE 

SKILL-8888. 

ENDF 

IF  (NSHOTS.EO.O)  PK1T3-0.0 
C  F  (SKXX.GT.16.0)  PKITVC.0 

C  F  (SKILL.LE16.0JMD.SWLL.GT.7JJ)  THEN 

C  F  (SKILLGT.7.0)  THEN 

F  (SKILL.GT.45.0)  THEN 

PSHOOT.NSHOTSSKIX 
PNO-RNDO 
F  (PNO.GEJ 

ENOF 

F  (PKIT3.GT.PKITM)  THEN 
PKITM-PKIT3 
IWEAP-3 
ENDF 
ENDF 

1 141  CONTNUE 

C  ENO  LOOP  8 

C  ENO  OF  RED  WEAPON  SELECTION  LOOP 
C  WRITE  (*.*)  '  RED  WEAPON  SELECTION'.IWEAP.'PK'.PKITM 

C  F  TARGET  B  AT  A  QUESTIONABLE  EFFECTIVE  RANGE  8K*>  IT 
F  (PKITM.LE.O.OI  GO  TO  1143 
F  (IWEAP.EQ.O.O)  GO  TO  1143 

C  FIND  PROBABX.ITY  OF  THIS  TARGET  KILLING  YOU  AND  APPLY  PROBITY 
C  FACTOR 
C 

KPFACT-KPRIR(K,NITSYS) 

PKYOUt-O.O 
PKY0U2-0.0 


I.PSHOOT)  PKIT3-0.0 
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PKYOU3-0.0 
««•* 
NUMITU 
HNG1 


DO  1143  NLMU1.NUMIT 
F  (NUM.EQ.1)  CALL 

A  FINOPK  (KSCE*IT3YS>4SYS.NUU.HNQ1.RANG6.PKYOU1,K) 

IF  (NUU.EQ.3I  CAU 

A  FWDnt  (KSCeXirrSYSX(SY3J*JM.HNa2,RANGE,PKYOU2.K) 

IF  (NUALEOJA  CALL 

A  FINOPK  (KSC€J4ITSYSJ(8YS,NUM.IRNG3.RANGE,PKYOU3,K) 

1142  CONTMUE 

C  FWO  MAXIMUM  PK  AGAMST  YOU 

PKYMAX-OlO 

IF  (PKYOUl.QTJ»KYMA»  PKYMAX-PKY0U1 
F  (PKYOU2.GT PKYMAX)  PKYMAX-PKY0U2 
F  (PKYOU3.GT .PKYMAX)  PKYMAX-PKY0U3 

F  TARGETS  PK  ON  YOU  IS  ZERO,  GIVE  IT  A  SMALL  VALLE  SO  THAT 
YOU  AT  LEAST  HAVE  A  TARGET  fo  SHOOT  AT  F  NO  OTHERS  ARE  BETTER 
AFTER  ALL  THIS  TROUBLE  OF  DECIDING  F  YOU  CAN  KILL  IT 

F  (PKYMAXLE.I10)  PKYMAJULOI 

F  MO  COMPOSITE  KAX  PRIORITY 

WRITE  r.VPK  IT  ON  YOU  PKYMAX 

PflIOfWPKITM'PKYMAXKPf  ACT 

ADO  A  SMALL  RANDOM  NUMBER  SO  NO  TWO  ARE  EVER  THE  SAME 
SMALURNOO 
SMALL -SMALL/IOOOl 
PRKM-PRK3R-SMALL 

PRIORITIZE  THIS  TARGET  WITHN  PRSIARV  OR  SECONDARY  20NE 

F  (NZ0NEE0.1)  THEN 
THIS  TARGET  $  M  PR  MARY  ZONE 
F  (PRIOR.GTPRQ  THEN 
PRhPRIOR 
NTGT1-J 
MYWP1-IWEAP 
TRNQ1-RANGE 
F  (IWEAP.EQ.1)  PKWP1-PKTT1 
F  IWEAPEOij  PKWP1-PWT2 
F  (IWEAP  EOJ)  r 
ENOF 
ENOF 

F  (WZ0NEEQ2)  THEN 
THIS  TARGET  IS  IN  SECONOARY  ZONE 
F  (PROR.GT.SEC)  THEN 
SEC- PR  OR 
NTGT2-J 
MYWP2-IWEAP 
TRNQ2- RANGE 
F  (IWEAPEO.il  PKWP2-PWT1 
F  (IWEAPEQE)  PKWP2-PKIT2 
F  (IWEAPEOJ)  PKWP2-PKIT3 
ENOF 
ENOF 

F  (INZONE.EOS)  THEN 
THIS  TARGET  IS  M  3Sd  DEGREE  ZONE 
F  (PROR.GT.THIRD)  THEN 
THIRO-PROfl 
NTGT3-J 
MYWP3.IWEAP 
TRNG3-RANGE 
F  (IWEAPEQ.il  PKWP3.PKIT1 
F  (IWEAPEQEl  PKWP3-PKIT2 
F  (IWEAPEOS)  PKWP3-PKIT3 
ENOF 
ENOF 

43  CONTINUE 

TARGET  WAS  SKFPED  TO  LME  1143  SINCE  IT  WAS  AT  A  QUESTIONABLE 
EFFECTIVE  RANGE  OR  INSUFFICIENT  AMMO  TO  RISK  MISSING  THE  SHOT 


!IWEAP  EQ.3)  PKWP1-PWT3 


WRITE  (V)  ■PRr.PRI.'NTGT  V.NTGT  1 
ENOF 

ENOOF  MZONE 
48  CONTMUE 


END  LOOPS 


END  LOOP  4 

ENOOF  FINDING  A  TARGET  FOR  THIS  RED  SYSTEM 

F  THE  8EC0N0ARY  TARGET  HAS  12S%  OF  THE  PRIORITY 

OF  THE  PRIMARY  TARGET.  SHOOT  AT  THE  SECONDARY  TARGET 

ITGTR(K,1)-0 

rrGTRki)-o 

PKTR(K.1)-0.0 

TRNgSjS 

MYWP-0 

F  (SEC.GE.(I^S,PRft)  THEN 

SHOOT  AT  TARGET  IN  SECONDARY  ZONE  SINCE  IT  IS  COMPELLING 

ITGTR(K,1)-NTGT2 

ITGTR(K2>7mYWP2 

PKTR(K.1H>KWP2 


C 

C 

C 

C 


PKTR(tC2VTRNG2 

TRNG-TRNG2 

MYWP-MYWP2 

ELSE 

C  STAY  WITH  PRIMARY  ZONE  TARGET 
ITGTR(K,1).NTGT1 
ITGTR(K7)H4YWP1 
PKTR(K,1)-PKWP1 
PKTR(K2WrRNG1 
TRNGulHNGI 
MYWP-MYWP1 
ENDF 

C  IF  THERE  ARE  NO  TARGETS  M  PRIMARY  AND  SECONDARY. 

C  SHOOT  AT  THIRO  ZONE  TARGET  (380  DEGREES) 

IN3>0 

IF  (NTGT1.EQ.0AN0  NTGT2.EQO  THEN 
ITGTR(K.1).NTGT3 
rTGTRnX2)-MYWP3 
PKTR(K,1WPKVK>3 
PKTR(K2UTRNG3 
TRNG.TRNQ3 
MYWP-MYWP3 
F^NTGT3.NE.O)  M3.1 

FOR  BATTLE  MANAGEMENT,  CHECK  TO  SEE  F  MORE  THAN  4  RED  SYSTEMS 
ARE  ALREADY  SERVICING  THIS  TARGET.  F  SO.  SKIP  IT. 

F^Gim  1  n.EQA,  THEN 

ITGTRIKji-O 
PKTR/K.1)-0.0 
PKTR((X2)-0.0 
TRNG-0.0 
MYWP-0 
ELSE 

IAMB(ITGTR<K,  I))-IAMB(ITGTR(K.1))-1 
ENOF 
C 

C  WRITE  (*.*)  -PRIMARY  ZONE  TARGET.ITGTR(K.1) 

C  EVALUATE  TARGET  SEARCH  RESULTS  AND 
C  CHANGE  MOOE  FOR  THIS  BLUE  SYSTEM  ACCORDINGLY 
STIME-0.0 
MOOEN-O 

F  (ITGTR(K.1).EO.O)  THEN 
C  LOOP  7 

C  NO  TARGETS.  WAIT  MOOE 

C  WAIT  A  COMPLETE  SEARCH  CYCLE  TIME  FOR  DUTY  CYCLE  ACCOUNTABILITY 
C  BUT  CREW  IS  STILL  SEARCHING  DURING  THIS  TME 
MOOEM-5 

uoopFFwo-uoneN 

C  DETERMINE  END  TIME  OF  SEARCH  MODE  CYCLE 
C  WRITE  (V)  -SEARCH  RATE  RED.SRCHR(NSYS) 

STIME-HaRGT  1 -ALFT1  W(ARGT2-ALFT2)VSRCHR(NSYS) 
TRMFR(K).ITlME.IOT(ME»STIME 
C  WRITE  (*,*)  -RED  -.K.'  NO  TARGETS  • 

ELSE 

C  THERE  IS  A  TARGET  WITHIN  EFFECTIVE  RANGE 

C  SET  TURRET  AZIMUTH 

CAU  TURAZ  (2XITGTR(K.1)>ZTR(K)) 

C  SINCE  A  TARGET  WAS  FOUND,  CREW  GOES  MTOQUCK  SEARCH 
C  MODE  FOR  NEXT  SEARCH  CYCLE.  FOCUSING  INITIALLY  ON  TARGETS 
C  WITHIN  A. S  SECOND  TRAVERSE  MOM  THIS  TARGET. 

C  RESET  PRIMARY  SEARCH  ZONE  AND  SET  SECONDARY  TO  Ofi 
NSYS-IRSYS(K.1) 

IRSECONOflOWO 

tRSECOND(K2WO 

ALFT 1 -  AZTR(KFTRATER(NSYSy2.0 
ARGTt.AZTH(K)»TRATER<NSYSM!T) 

F  (ALFT1.LT.0.0)  ALFT1-MFTU360.0 

FiARGTI.GTjeo.O)  ARGT  1 -ARGT 1-360.0 

IRPRIME(K,1).ALFT1 

IRPRIME(K2)-ARGT1 

ALFT2-0.0 

ARGT2-0.0 

F  (ALFT1.GTJIRGT1)  ARGT 1  - ARGT 1  -360. 

F  ( ALFT2.GT ARGT2)  ARGT2-ARGT2+360. 

C  CHECK  MOOES  FOR  ENGAGEMENT.  BALKING  ANO  ENERGY  WAIT 
BALK-RNOQ 

F  (BALK.GT.0.975)  THEN 

C  BALKING.  WAIT  SEARCH  TIME.  BUT  STILL  SEARCH 
MOOEN-4 

MOOEFRIKWMOOEN 

C  DETERMINE  END  TIME  OF  BALKING  MOOE  CYCLE 

STIME.HARGT1  ■  ALFT1  W(ARGT2ALFT2))/SRCHR<NSYS) 
TRMFR(K)-ITIME-IDT1mE-STIME 
1 131  FORMAT  f  RED  '.13.’  BALKS  AT  BLUE  -.13) 

C  WRITE  (M 131)  K,ITGTR(K.1) 

WRITE  (10.1131)  K.ITGTRIK.1) 


C 

C 

C 

C 


ENDF 

EVALUATE  EM  ENERGY  REQUIREMENTS  FOR  BLUE  SYSTEM  (MOOE  3) 
(NOT  DONE  YET) 

IF  NOTHING  ELSE.  THEN  ENGAGE  THE  TARGET 
F  (MODEN.EQ.O)  THEN 
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UOOBU 

MOOEFRIW-MOOEN 

DETERMINE  ENOTIME  Of  ENGAGMENT  MOOE  CYCLE 
BASED  ON  MTERPOLATING  BETWEEN  MIN  RANGE  ANO  MAX  RANGE 
ENGAGEMENT  TIMES 


I8T-(NSYS-1)*3»MYWP 
NFKW«WR(NSYSJ4YWn 
ISflM-(N8Y8-H*18*CMYWp.1]**.NfiG 
ISRl-<NSYS-lp8HMYWP-1)‘**1 


RMMMMVISRl) 

RMAX-RHIISRMI 
TMIN-TEMINROST) 

TMAX-TEMAX;.  . 

CALL  TSHOOTiHMIN.RVAX.TM IN, TMAX.TNNG.STIME) 

IF  TARGET  TO  BE  ENGAGED  IS  IN  ZONE  3  (360  DEGREES), 

MUST  ADO  THIS  EXTRA  SEARCH  TIME  TO  THE  ENGAGEMENT  TIME 
STIME3.360LWSRCHR(NSYS)-IN3 
TRMFRMWITIME+I0TIME*ST)M£«STIME3 
32  FORMAT")1  RED  '.a.'  ENGAGES  BLUE  '.O,'  WEAPON  '.O, 

A  1  RANGE  >6.0) 

WRITE  P.1132)  K.ITGTR(K.1)JilYWP,TRNG1100a 
WRITE£lb,1132)  K.ITGTR(K.1).MYWP,TRNQ'1000. 

ENDF 

END  LOOP  7 

END  OF  TARGET  SEARCH  EVALUATION  RESULTS 
ENDIF 

ENO  LOOP  3 

ENO  OF  ITS  TIME  TO  SELECT  A  TARGET 


ENO  LOOP  2 


ENDIF 

END  OF  SEARCH  MOOE  ' 

IF  (MOOEF.EQJ.OR.MOOEF.Ea6.OR.MOOEF  EO  S.OR. 
A  M00EF.E0.8)  THEN 

LOOPS 

ENGAGEMENT  MOOE 

CHECK  FOR  MOOE  CHANGE  AT  ENO  OF  SUB-CYCLE 
TCHANGE-TRMFROG 
TNEXT.ITME*0TME 
F  (TCHANGELE.TNEXT)  THEN 

LOOPS 

ITS  TME  TO  KLL  THE  TARGET 

RED  EXPENDS  ONE  SHOT 

IAMOUT-0 

JKILUO 

NWP-1TGTRIKJ) 

NTG.ITGTR(K.1J 

trng-pk — 


rR(K.NWPH 

0)  IAM0UT.1 


rGTR(Kl) 

PKTRjKJS 

NSHOTR(K.NWPWNSHOTRi 

IF  (NSWOTR(K.VWP).EO.O> _ 

IAMB(NTG)-IAM8(NTG)-1 
F  (IAMB(NTG).LE.O)  IAMB<NTG) 

FIND  SEARCH  AREAS  FOR  RE-MOOING  INFORMATION 
NSYS-IRSYSjK.1) 

ALFTl-«PRIME(fc.1) 

AROTI-BPRIMEIKJ) 

Atm.lfiSECONDfK.1) 

ARGT2.IRSEC0ND(Ki) 

IF  IALFTI.GTARGT11  ARGT1-ARGTU360. 

IF  I ALFT2.GT  ARGT2)  ARGT2-ARGT2»360. 

IF  (1RPRIME(K,1).EQ.|RSEC0ND(K.1)JWD.IRPRIME(KJ). 

A  EQ.WSECOWXKJ))  THEN 
ALFT2— 1.0 
ARGT2-1.0 
ENDIF 

DETERMINE  ENO  TIME  OF  SEARCH  MOOE  CYCLE 
STIME-((ARGTl-ALFT1W(ARGT2-ALFT2)ySRCHfl(NSYS) 

RE-EVALUATE  MASKING  ANO  OBSCURANT 
PROB-RNDO 

PKIT.PKTRCK.1) 

CHECK  BLUE  TARGET  FOR  ACTIVE  PROTECTION 

CALL  CHECKAPS  (2.NSYS.NTG.NWP.PKIT.FAPS,TRNa) 

XR-RXY  ‘ 

YR-RXY, 

XB-BXY 
¥B«fiXYi 

DRAW  LINE  FROM  SHOOTER  TO  TARGET 
CALL  PLINE  (XFLYR.XB.YB  J) 

IF  (PRQB.LE.PKIT)  THEN 

LOOP  10 

KILL  TARGET  ANO  RE-MOOE 
RE-EVALUATE  MASKING  ANO  OBSCURANTS 
TERRAIN  MASKING 
jSKlP.1 

IF  (ITEREO.1)  CALL  TERRMASK  (XB.YB JLR.YRJSKIP) 

F  THIS  IS  A  MAN  IN  THE  LOOP  (ML)  WEAPON.  THE  TARGET 
MUST  8TLL  BE  ABLE  TO  BEEN  SEEN  ANO  TRACKED  IN  ORDER  TO 
BE  HTT.  EVALUATE  CURRENT  OUST  ANO  ENGINE  SMOKE  SITUATION. 

EVALUATE  M-M.  OR  F-A-F 
MLTYPE.MILRINSYS.NWP) 

IF  (MILTYPE.E0.1)  THEN 

THIS  WEAPON  IS  M-FL.  RE-EVALUATE  OBSCURANTS  FOR  MASKING 
IF  THIS  RED  SYSTEM  IS  DUST  SENSITIVE  IN  TARGET  ACQUISITION 


C  OR  TRACKING 

C  FIND  ANGLE  ANO  RANGE  TO  ALL  OLBT  PUFFS  SO  THAT  MASKMG  CAN  BE 

C  RE-EVALUATED 
RANGE- TRNG‘1000. 

ITRKI.ITRKRjNSYS.1) 

ISR0F-(NSY$-11*3*NW 
IRNG I  •|RNGR(I5R0F.  1) 

ICANRD-1 

IF  (IRNG1.EQ.0)  CANRO-O 
IF  (ICANRO.EQ.O.OR.ITRK1  .EGO) 

6  CALL  OMASK  (XRYR.RANGE.0.0.0.0) 

CALL  COOKMASK  (XR.YR.RANGE.O.O.O.O) 

C  F  THIS  RED  SYSTEM  IS  ENGINE  SMOKE  SENSITIVE  IN  TARGET  ACQUISITION. 

C  TRACKING  OR  RANGING. 

C  FIND  ANGLE  AND  RANGE  TO  ALL  ENGINE  SMOKE  PUFF8  SO  THAT  MASKMG 
C  CAN  BE  RE-EVALUATED 
ITRK2-ITRKRJNSYSJ) 

ISR0F«(NSYS-1)*3*NWP 

IRNG2>|RNQR(ISR0FJ) 

CANflE-l 

IF  (IRNG2.EQ.0)  CANRE-0 
IF  (CANRE.EaO.OaiTRK2.EO.O) 

A  CALL  ESMASK  (XR.YR.RANGE.O.O.O.O) 

C  IF  THIS  RED  SYSTEM  IS  SMOKE  GRENADE  SENSITIVE  M  TARGET  ACQUISITION. 
C  TRACKING  OR  RANGING. 

C  FIND  ANGLE  ANO  RANGE  TO  ALL  SMOKE  GRENADE  CURTAINS  SO  THAT  MASKING 
C  CAN  BE  RE-EVALUATED 
ITRK3*ITRKR(NSYS.3) 

ISR0F-(NSYS-1)*3-NWP 

IRNG3*lRNGR(ISROFJ) 

ICANRE-1 

IF  (IRNG3EQ.0)  ICANRS-0 
IF  (ICANRS.EQ-O.OR.ITRK3.EQ.O) 

CALL  QRMASK  (XRYR^ANGE.O.O.O.O) 


C 

C  IF  THIS  RED  SYSTEM  IS  ARTILLERY  SMOKE  SENSITIVE  IN  TARGET 
ACQUISITION. 

C  TRACKING  OR  RANGING. 

C  FIND  ANGLE  AND  RANGE  TO  ALL  ARTLLERTY  SMOKE  CURTAINS  SO  THAT 
MASKING 

CAN  BE  RE-EVALUATED 


C 

C 

C 


C 

C 

C 


C 

C 


ICANflA-1 
IF  (RNG4EO.O)  ICANRA-0 
IF  UCANRA.EQ.0.OR.ITRK4.EQ.0) 

I  CALL  ASMASK  (XR.YRRANQE.0.0.0.0) 

OUST  MASKING 

RE-EVALUATE  ALL  OUST  PUFFS  WITHIN  RANGE  OF  THIS  TARGET 

FIND  ANGLE  TO  THIS  TARGET 
TOP-YB-YR 
BOT-XB-XR 

IF  (BOT.EQ.O.O)  BOT«8OT*.001 
OIR.ATAN(ABS(TOP)/ABS(aOT))*1807PI 
IF  (BOT.LT.O.O)  THEN 

IF  (TOP.LT.O.G)  DIR-DFU180. 

IF  TOP.GT.O.O)  0IR-180.-DIR 

ELSE 

IF  (TOPATD.O)  DIR-360.-01R 
ENCHF 

CONVERT  THIS  COORDINATE  SYSTEM  DIRECTION  TO  AN  AZIMUTH 
CALL  FAZ  (DtfLAZlN) 

JOUST-1 

F  (tCANRD.EQ.O.OR.TTRKI.EQ.0) 

6  CALL  DSEE  (XR.YRJffl.YBAZINJDUST) 

BURNING  VEHICLE  MASKING 
CALL  COOKSEE  (XR.YR.XB.YBAZIN.JSKIP) 

F  THERE  IS  OUST  M  THE  WAY  AND  RED  CANNOT  SEE  OR 
TRACK  THROUGH  IT.  THE  TARGET  IS  MISSED 
F  ( JOUST. EQ.O AND. IT RK1EQ.0)  JSKIP-0 

F  J SKIP-1  THERE  MAY  STILL  BE  DUST  M  THE  WAY,  BUT  RED  CAN  SEE 
THROUGH  IT.  THE  QUESTION  REMAINS  WHETHER  RED  CAN  TRACK  THROUGH 
THE  OUST. 

IF  (JDUST.EO.OAND.CANRD.EQ.O)  JSKIP-O 
F  JSKlP.1.  THERE  IS  NO  DUST  OR  TRACKING  PROBLEM 
ENGINE  SMOKE  MASKING 

RE-EVALUATE  ALL  ENGINE  SMOKE  PUFFS  WITHIN  RANGE  OF  THIS  TARGET 
JENG-1 

F  (CANRE.EQ.O.OR.ITRK2.EO.O) 

1  CALL  ESSEE  (XR.YR.XB.YBAZINJENG) 

F  (JENG.EO  3.AMD  STRK2.E0  0)  JSKF-0 
F  (JENG.EQ.O.AND.JCANRE.EO.O)  JSKF-0 

SMOKE  GRENADE  CURTAIN  MASKING 

RE-EVALUATE  ALL  SMOKE  GRENADE  CURTAINS  WITHIN  RANGE  OF  THIS  TARGET 
JSMK.1 

F  (ICANRS.EO.O.OR. ITRK3.EO.(n 
I  CALL  GRSEE  (XR.YH.XB.YBAZINJSMK) 

F  (JSMK.EQ.OAND.ITRK3.EO.O)  JSKF-0 
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IF  (JSMKEO.OJkND.CANRS^aO)  JSKF.0 


c 
c 

TAHOE 


ARTUERY  SMOKE  CURTAIN  MASKMQ  _ 

RE-EVALUATE  ALL  ARTILLERY  SMOKE  CURTAINS  WITHIN  RANGE  OF  THIS 

JART.1 


C 

c 

c 

c 

c 


1133 

C 

C 

C  • 


:  (JART.EQ.O.AND.ITRK4.EQ.O)  jskf-o 
F  (JARTEQ.QANO.ICANRA.EO.OI  JSKIP-0 

ENCMF 

ENO  OF  OBSCURANT  RE-EVALUATION  FOR  M-H.  WEAPON 
IF  (JSKIPEai)  THEN 
BLUE  TARGET  KLLEO 

TALLY  BLUE  KILLS  FOR  RESOLUTION  AFTER  THIS  SUB-CYCLE 
JUST  M  CASE  THIS  BLUE  TARGET  IS  ABOUT  TO  KILL  A  RED 
TARGET 
KILLR^NTGM 

RE4400E  TO  SEARCH 
MOOEN-I 


FMAMOUT.EQ.I _ 

A  WRITE  (10.*)  HEO  'JC  WEAPON 


i  WEAPON  •jm>:  OUT  OF  AMMO 
WRITE  (10,1133)  ILNTG 
iOEF.NE.9l 

_ _ „  EAPON  '.NWP.'  CUT  OF  AMMO 

IAMOUT-0 

C  F  (IBSYS(NTQl2)HEJ))  CALL  OUTPUT2  (ITIME.1.NTa£| 

ELSE 

C  SOME  SORT  OF  MASKING  GOT  IN  THE  WAY  OF  M  R  SYSTEM 
C  OR  TERRAIN  GOT  IN  THE  WAY  FOR  F-A-F  WEAPON  WHILE  TARGET 
C  WAS  MOVING 

F  (IBSYS(NTQj).NE.O)  WRITE  (10.1134)  ILNTG 

f  (MooEFiamoo  to  ii36 

F  JlAMOUTEO.  I  ANO.MOOEFHE.91 
A  WRITE  (10.*)  RED  X*  WEAPON  \NWP.*  OUT  OF  AMMO 
IAMOUT-0 

WRITE  (10.*)  -RED  ML*  SEARCHES  FOR  A  BETTER  TARGET 
MOOEN-1 

ENOF 

ELSE 


1134 

C 

C 

C 


FORMAT  f  REO  M3.*  MISSES  BLUE  *.H| 
JF1®ST^NTG.^E0)  WR!IE  £.1 134J  jLNTO 


OUT  OF  AMMO 


C 

C 

C 

C 

C 


C 

C 

C 

C 


F(IAMOUtEa.1.ANO.MOOEF.NE.9) 

A  WRITE  (10.*)  -RED  ML*  WEAPON  MrtllP.*  OUT  OF  AMMO 
IAMOUT-0 

F  (MOOEFEQ.9)  QO  TO  1136 
RE-MOOE  RED  SYSTEM  AFTER  MISS 
THERE  ARE  TWO  OPTIONS  -  1  RE-ENGAGE 
-2  RE-SEARCH 

RE-ENGAGE  BASED  ON  AVAILABLE  AMMUNITION.  AND  THE  Pk 
RE  SEARCH  F  DECISION  IS  TO  NOT  RE-ENGAGE 
PKIT-PKTR(K,1) 

NSHOTS-NSHOTR(K.NWP| 

SKLL-LOGI.OI  VLOG(1  .-PKIT) 

F  (NSHOTS.EO.a  MOOEN-1 
F  (SKILL.QT.1A0)  MODEM.  1 
F  (SKILLLE.1AO.ANO.SK  IU..GT.7.0)  THEN 

f  @kille.iaoandhshots.i«.£Ohen 

F  (SKILL.GT.7.0JINO.NSHOT3HE.O)  THEN 
F  (NSHOTS.NE.O)  THEN 

PSHOOT-NSHOTS/SKILL 
PNO-RNDO 

F  (SKLLLE.7)  PNO-O.O 

F  (SKLL.LE.4S)  PNO-O.O 
F  (PNO.QE.PSHOOT.OR.MOOEF.EQ.8)  THEN 
MOOEN-1 

WRITE  (*.*)  "RED  ML*  SEARCHES  FOR  A  BETTER  TARGET 
WRITE  (10/yRED  X*  SEARCHES  FOR  A  BETTER  TARGET 


•  (I8SYS(NTGJ?)HE.0)  THEN 
C  RE-ENGAGE  THE  TARGET 

MOOGNvft 

C  WRITE  (*.*)  *REO  ML*  RE-ENGAGES  BLUE  *  NTG 
C  WRITE  (10.*)  RED  ML*  RE-ENGAGES  BLUE  '.NTG 
C  DETERMINE  ENO  TIME  OF  ENGAGMENT  MODE  CYCLE 

C  BASED  ON  INTERPOLATING  BETWEEN  MIN  RANGE  AND  MAX  RANGE 
C  ENGAGEMENT  TIMES 

TRNG-PKTR(IL2] 

S3T-(NSYS-1)*3»NWP 
NRG-NRWR(NSYS.NWq 
ISRMJNSYS-in8»<NWP-1)*8-NRG 
ISR1-(NSYS-1)*1A*(NWP-1)*8-1 
RMIN-RRIISR1I 
RMAX-RRIISRMI 
TMIN-TEMINRII 
TMAX-TEMAXR  , 

CAU  TSHOOT  (RMIN.RMAX.TVIIN.TMAXTRNG.STIME) 

ELSE 


MOOEN-1 
ENDF 
ENOF 
ENOF 
1136  CONTINUE 
ENOF 

C  ENO  LOOP  10 

C  END  OF  TARGET  KLLEO  ANO  SYSTEM  RE-MOOED 

TRMFR(K)-ITTME-OTB4£-ST94E 
MOOEFh(K)-MOOEN 
F  (MOOEFEQ.9)  MOOEFR(K)— 9 

C  WRITE  SHOT  OUTPUT  INFORMATION 
Fji&gTS(NTG^)EO.O)  THEN 

F^FAPSHE,,)  FAPS-3 

CALL  OUTPUT)  (ITtME,2XNSYS.NWP,aTRNG.NTQ,ISSYS(NTG,1), 
A  FAPSJKILL) 


C 

C 

C 


C 

c 

c 

C 


C 

c 

c 


ELSE 

ENO  OF  ITS  TIME  TO  KLL  THE  TARGET 

CHECK  TO  SEE  F  TARGET  WAS  KLLEO  BY  ANOTHER  WEAPON  DURING 
THIS  ENGAGEMENT  PERIOD.  F  IT  WAS.  CHECK  TO  SEE  F  THIS  WEAPON 
CAN  REDESIGNATE 

NTG-ITGTR/K.1) 

F  (IBSYSfNToAEO.O)  THEN 

THIS  TARGET  HAS  JUST  BEEN  KLLEO.  TRY  TO  RE -DESIGNATE 
F  THIS  SYSTEM  JUST  RE-DESIGNATED.  HOWEVER,  MUST  WAIT 
3  SECOND  RE-OESIGNATION  TIME  PERIOO  BEFORE  DOING  IT  AGAM 
F  (MOOEF.EQ.8)  THEN 
TCAN-TROESR(K) 
asE 

TCAN-0.0 

ENDF 

NWP.ITGTH(K.2) 

NSYS-nSYSPU) 

MLTYPE-MIURIMSySJMm 
F  (MLTYPEEQ.1  ANO.mME.QE.TCAN)  THEN 
THIS  WEAPON  IS  MAN-IN-LOOP.  IT  CAN  RE -DESIGNATE,  BUT  NEEDS 
AT  LEAST  3  SECONDS  FOR  GUNNER  TO  OVERCOME  Hli  SURPRISE  ANO 
QUICKLY  ASSESS  THE  SITUATION.  THEN  FIND  ANOTHER  TARGET. 

FIND  TIME  TO  IMPACT 
TROESRIKHTIME-SJ) 

THIT.TRMFR(K)-mME 

IWANT-0 

F  {THIT.QTS.0)  THEN 
THERE  IS  ENOUGH  TIME 
THIT-TH  IT-3.0 
TRNG-PKTR(K2) 

DETERMINE  ENGAGMENT  MODE  CYCLE  TIME  TO  THIS  TARGET 
BASED  ON  INTERPOLATING  BETWEEN  MIN  RANGE  ANO  MAX  RANGE 
ENGAGEMENT  TIMES  ANO  TARGET  RANGE 
MYWP-NWP 


C 

c 

c 

c 

c 

c 


MISSILE  CAN  BE  RE-OESIQNATED  TO  FMO  ANOTHER  REO 
TARGET  WITHIN  THIS  DISTANCE  FROM  THE  OLD  TARGET 
BUT  NOT  BEYOND  SYSTEM  MAXIMUM  RANGE. 


FIND  CLOSEST  OTHER  RED  TARGET 
CURRENT  TARGET  X.Y  POSITION 
XT-BXYA/NTG.1) 

YT-BXYAfNTGi) 

XB-RXY4UK.1) 

YB-RXYAfki) 

C  SEARCH  ALL  REO  TARGETS  FOR  CLOSEST 
ORMIN-1.0E12 

C  FIND  ANGLE  AND  RANGE  TO  ALL  FRIENDLY  ANO  THREAT  VEHICLES 
C  SO  THAT  MASKING  CAN  BE  EVALUATED 
C 

KSIOE-2 

MYSIOE-2 

IRED-K 

CAU  VMASK  (KStDE.IREO) 

C  EVALUATE  OBSCURANTS  ALSO 

C  F  THIS  REO  SYSTEM  IS  OUST  SENSITIVE  IN  TARGET  ACQUISITION 
C  OR  TRACKING 

C  FIND  ANGLE  ANO  RANGE  TO  AU  OUST  PUFFS  SO  THAT  MASKING  CAN  BE 
C  RE-EVALUATED 

RANGE-TRNG*1000.*1.1 

ITRKI-ITRKR(NSYS,1) 

ISROF-(NSYS-1)*3tNWP 

WNGI.IRNGR(ISROF.I) 

ICANRD-1 

F  (IRNG1.EO.O)  CANRD-0 
F  (CANRD.EQ.O.OR.ITRK1  .EQ.O) 

A  CAU  DMASK  (XB.YB.RANGE.aaaO) 
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ooo  oo  no  o  noon  o  on  no  no  o  000*00  00000  00000  o 


CALL  COOKMASX  0«.Y8JMNGE.aaO.C| 

F  THIS  RED  SYSTEM  IS  ENGUNE  SMOKE  SENSITIVE  IN  TARGET  ACQUISITION. 
TRACKING  OR  RANGING. 

FMO  ANGLE  ANO  RANGE  TO  AU  ENGINE  SMOKE  PUFFS  SO  THAT  MASXMG 

CAN  BE  REEVALUATED 

ITRKa>ITRKR(N3YS^ 

OROF«MSYS.1|>NWP 

BErw"o'ji 

IF  (IRNGOEO.OI  CANRE-0 
IF  (CANREEQ.OOFUTRKa.EaO) 

A  CALL  E3MASK  (X8. YSJJANGEAOOO) 

F  THIS  RED  SYSTEM  M  SMOKE  GRENAOE  SENSITIVE  IN  TARGET  ACQUISITION. 
TRACKING  OR  RANGING, 

FIND  ANGLE  ANO  RANGE  1 
CAN  HERE-EVALUATED 
ITRKVITRKRjNSYSJ) 
tSR0F^NSYS-1)*3»NWP 
IRNG3JRNGR(ISR0FJ) 

XSAMRS-1 
IF  (FWG3.EO.O)  CANRS-0 
IF  )CANRSEO.O.ORITRK3.EaO) 

A  CALL  GRMASK  (XB.Y8JMNGE.0.0A0) 

IF  THIS  RED  SYSTEM  IS  ARTILLERY  SMOKE  SENSITIVE  IN  TARGET 
2QUISITI0N. 

TRACKING  OR  RANGING, 

FMD  ANGLE  ANO  RANGE  TO  ALL  SMOKE  GRENAOE  CURTAINS  SO  THAT  MASKING 
CAN  BE  RE-EVALUATED 


:  TO  ALL  SMOKE  GRENAOE  CURTAINS  SO  THAT  MASKING 


A  CALL 


ICAnRAbI 
IF  <IRNG4Ea0)  CANRA-0 
F  lCANRAEQaORITRIU.EQ.O) 
ASMASK  0(8.  YBJMNGE.O.O,aO) 


DO  111  JBLUE.TNR 
F(IB3YS(J8LUe>)EaO)  GO  TO  111 
XNT-BXYAmBLuCi) 

YNT-BXYAfJBLUE.2) 

DNT-«XNT0m~2»(YNT-YR“2)“.5 

D»ffl^NT-XB)“a*fYNT-Y»-2)~5 

CHECKTARGET  SIGNATURE  AGAINST  DETECTABILITY  ANO  SKIP  IF 
NOTOETECTED 


F  (DN8.LERMAX_AN0.DNT.LE.DMSL)  THEN 
DIVIDE  BY  A  RANDOM  FACTOR  SO  EVERYONE  DOES  NOT 
TAKE  THE  SAME  ALTERNATE  TARGET 
RRR.RNOO 

ONT«ON  TABRR 
F  (DNTLTCRMM)  THEN 
EVALUATE  MASKING 
FIND  ANGLE  TO  THIS  TARGET 
TOP-YNT-YB 
BOT.XNT-XB 

F  (BOT.EO.O.O)  BOT-BOT+.001 
D«-ATAN0kBS|T|W>yABS(BOT))M8aiPI 

*  F’rTOPXT.O.O)  OFUOPW1AO. 

F  (TOP.GT.aO)  DIR.iaO.GIR 

ELSE 

F  (TOPXT.0.0)  onusaGn 
ENOF 

CONVERT  THIS  COORDINATE  SYSTEM  DIRECTION  TO  AN  AZIMUTH 
CALL  FAZ  (DFLAZIN) 

AT  THIS  POINT  EVALUATE  TERRAIN  ANO  FRIENDLY/ENEMY  VEHICLE 

MASKING  ANO  OBSCURANTS  ANO  DROP  THIS 

TARGET  F  UNOBSERVABLE  (TERRAIN  /  SMOKE  NOT  DONE  YET) 

JSKIP-1 

TERRAIN  MASKMG 

F  (ITEREai)  CALL  TER  RM  ASK  (XNT.YNT XB,  YBJSKIP) 

F  (JSKFEO.fa)  GO  TO  111 

CALL  VSEE  (MYSOE.KJBLUE.RANQEAZINJSKF.NBNFI) 

CALL  COOKSEE  (XB,YBJ<NT,YNTJkZINJSKIP) 

F  (JSKFEO.O)  GO  TO  111 

OUST  MASKING 

RE-EVALUATE  AU  OUST  PUFFS  WITHIN  RANGE  OF  THIS  TARGET 
JDUST-1 

F  (CANRD.EO.O.OR.ITRK1  .EQ.O) 

A  CALL  OSEE  (XB.YB.XNT.YNT  AZIN  JOUST) 

F  THERE  IS  OUST  W  THE  WAY  ANO  BLUE  CANNOT  SEE  OR 
TRACK  THROUGH  IT-THE  TARGET  IS  MISSED 
IF  (JOUST EQ.O.ANO.ITRK  1  .EQ.O)  J SKIP-0 

F  JSKF.1  THERE  MAY  STLL  BE  OUST  M  THE  WAY,  BUT  BLUE  CAN  SEE 
THROUGH  IT.  THE  QUESTION  REMAINS  WHETHER  BLUE  CAN  TRACK  THROUGH 
THE  OUST. 

F  U0UST£0AAN0.CANR0£O0)  JSKJP-0 
F  JSKF.1,  THERE  18  NO  OUST  OR  TRACKING  PROBLEM 


C  ENQME  SMOKE  MASKMG 

C  RE-EVALUATE  AU  ENGINE  SMOKE  PUFFS  WTMN  RANGE  OF  THIS  TARGET 
JENG-1 

F  (CANREEao.OR.rTRKa^OA 


c 

c 


F  (JE HQ.Eao.ANO.CANREEQD)  JSKFM) 

SMOKE  GRENADE  CUBTAM  MASKMG 
. . . . GRENAOE  I 


RE-EVALUATE  AU  SMOKE 
JSMK.1 


CUR  TAMS  VWTHM  RANGE  OF  THIS  TARGET 


:  /JSMK.EQ.OANO.rrRKOEaO)  Jl 
:  (JSMKEOaANO.CANRSEaO) 


JSKF-0 


C  ARTLLERY  SMOKE  CURTAM  MASKMG 

C  RE-EVALUATE  AU  ARTLLERY  SMOKE  CURTAINS  WITHIN  RANGE  OF  THIS 
TARGET 
JART.1 


TrAZSCJART) 

F  UARTXO.aANO.CANRAEO.O)  JSKF.0 
C  ENO  OF  OBSCURANT  RE-EVALUATION  FOR  M-LL  WEAPON 
F  (JSKF.EOJ))  GO  TO  111 

C  TARGET  CAN  BE  SEEN  ANO  B  CLOSER  TO  OLD  TARGET 

ORMM-ONT 
IWANT-JBLUE 
RNG-DNB 
ENOF 

111  CONTINUE 

ENOF 

IF  (WANTNEX)  THEN 

C  THERE  IS  ANOTHER  TARGET  TO  DESIGNATE 

C  FWD  PROBABILTY  OF  KILLING  THIS  NEW  BLUE  TARGET 
NITSY8-JBSYWIWANT.1) 

CAU  FMOPK^KSDEJ(SYS/(lWsjimPJIRNGLRNQJNaT.IW»NT) 


C 

C 

C 


c 

c 


c 

c 


)  RED  'JC  RE -DESIGNATES  AT  BLUE  UWANT 
I  RED  UC  RE -DESIGNATES  AT  BLUE  UWANT 


ELSE 


NO  TARGETS,  FSUSH  OUT  CURRENT  ENGAGEMENT  MOOE  TIME 
THEN  RE-SEARCH 
unnPM.1 

RED  EXPENDS  ONE  SHOT 
NWP.ITGTR0C9 

N1  V.  .TQTRpU) 

TRNG-PKTRliyj 

NSHOTR0Ufl^»«)TR<KJIWP)-1 
IAMBMTGWIAMWNTG)-1 
F  (IAAIB(NTG)XT.O)  IAMB(NTGM> 


FINO  SEARCH  AREAS  FOR  RE-MOOMQ  INFORMATION 
NSYS-IRSYS(K,1) 

ALFTl.tRPRIME(k.1) 

ARGTIJRPRIMEIIti) 

ALFTaMRSECONqiK.il 

ARGT2.tRSECONQ(Ka) 

F  (ALFT1.GTJWGT1)  ARGT1-ARGT1+30G 
IF  ALFT2.GTJWGT2j  ARGT2.ARGT2»360. 

F  (WPRjUEfK.  1  ).EO.«SECOND(K.  1) JUgO.MPRMEOCO. 

*  mx^^SN0,kai  thgn 

ARGT2-1.0 

ENOF 

C  DETERMINE  ENO  TRIE  OF  SEARCH  MOOE  CYCLE 

ST1ME[-((ARGT  1  -ALFT1  H(ARGT2-ALFT3)ySRCHR(NSYS) 

TRMFRjKWITME*OTTME«STTME 

MOOEFR(K)MJODEN 

C  WRITE  SHOT  OUTPUT  INFORMATION 
JKILU-1 
PAP  8-1 

CAU  OUTPUT!  <nriVEAICNSYS.NWPJ>.TRNGJifraBSV8<NTQ.1L 
A  IFAPSJKIU) 


ELSE 

P  (IAMOUT.EO  1) 

A  WRITE  r,l REO  'X.'  WEAPON  \NW P.'  OUT  OF  AMMO 
P  (IAMO0T.EO.il 

A  WRITE  (10,*)  RED  'X,'  WEAPON  'NWP.'  OUT  OF  AMMO’ 
IAMOUT-0 
ENDP 

ENO  OF  IT  CAN  BE  RE-DESIGNATED 
ENDP 

ENO  OF  THIS  TARGET  HAS  JUST  BEEN  KILLED 


ooooooo 


nramms 


\  MW  CONTROL  ORDERS' 
[MtMW  BLUE  or  REA  or  QUIT 


PRIMARY 


KK-0 


ooisoKaijn 

ENOF 

»,««««,  THEN 

KK>0 

ENOF 

ISO  CONTMUE 
C 

ELSE 
C  RED 
KK-0 

DO140K.1.NR 

F  (jRSYS«C.1).QT.10)  QO  TO  140 

f  (BSY3flca.E0.il  then 
*  kkuosi’11,  C0W3<KJ1 

ENOE 

E  iKKEQJQ  THEN 
READ  (\*) 

KKaO 

ENOE 

140  CONTMUE 
ENOE 

141  WHITE  (V)  -ENTER  COMMAND  UNIT  (0HSLBT3 -1-OUITr 

wboe  W  v 


_ _ 10 

c 

142  WHITE  (7)  ENTER  NUMBER  RANGE  OF  SUBORDINATES  FOR1 
wwTEr.yaua-UNrT  allocation  (mtaht  «eno>  too  for  nonet 

READ  r.^RR-MZ}  NSUB1.NSU82 
I^UB— 1 

E  (NSU61.LE.0)  THEN 
NSU81-0 
NSU82-0 
NSUB-0 
ENOE 

E  (NSUBZLE.O)  THEN 
NSU81.0 
NSU82-0 
Nsua-o 
ENDE 

E  (NSLBEO.O)  OO  TO  144 

143  WRITE  (V)  'SUB-UNIT  ALLOCATIONS' 

WRITE  r.l’I-AU.  UNTTS  SEQUENTIAL  NCLUOINQ  COMMANDERS' 
WRITE  CO  •  XO.  PLATOON  LEADERS  ANO  SQUADS' 

WRITE  (Vj  2-ALL  SUBORDINATES  HAVE  SAME  ENTIRE  SECTOR  AS r 
WRITE  - - - 


e 

14# 


>143)  BUB 

L1.ANQ.I8U8J4E2)  GO  TO  143 


..  THE  COMMANDER  (EVERYONE  SHOOTS  IN  SAME  PLACE)' 
(Vl'2-UNIT  COMMANDERS  ANO  PLATOON  LEADERS  HAVE" 
WRITE  (V) '  THEIR  WHOLE  SUBORDINATE  UNIT  SECTOR: 

WHITE  (V) 

READ  rXeRfbli 
E  (BUBNE.1  JB 

WRITE  (VJ 

WHITE  CO  ENTER  PH <4 ARY  ZONE  AZIMUTHS  (LEFT  TO  RIGHT)' 
WRITE  CO  EOR  COMMANO  UNIT  AM)  SECONOAflY  ZONE  AZIMUTHS' 
WRITE  M  ENTER  00  E  NO  SECONDARY  ZONE  (InMomT 
WRITE  C.‘ ) 

KAO  ^.*ERR-14S)  PUPR.SU8R 


E  PU.T.O)  IPUEL»3#0 
F  PRJ.TA  PR-IPH.MO 
F  BLLT.S  ISL-ISL.30O 
F  BRXT4  BfUSR«360 


C 

ISO 


151 


C 

155 

C 

c 

c 

200 


F  (BLEQXLANO.BR.EQ.0)  I SEC-0 

PL.FL 

Pft.FR 

SL.ISL 

SR- OR 

F  (ISECEQD)  00  TO  IS# 


.'ffiO'C-l 


write  <Y)  Secondary  sector  allocation 
f  ieLneisland.erjc.isr)  then 

WHITEr.l  '1 -UNIQUE  COMMANO  UNIT  ANGLES.  SAME  SUBUNIT  ALLOC.' 

BTYPE.1 

ENOE 

F  (FL.EQ.I&LANO.PREQISR)  THEN 
WRITE  (‘.VENTER' 

WRITE  r.*)  2-EVERYONE  SHET  ONE  SUB-UNIT  ZONE  LEFT 
WRITE  (V)  '3-EVERYONE  SHIFT  ONE  SUB-UNIT  ZONE  RIGHT 
WRITE  M 

READ  (VERR.  151)  ISTYPE 
"  (ISTYPEEQ.1)  IS  TYPE-0 


C 

C 


fast 
enChf 
WRITE  I*  1 

F  (IS7YKLED.0R.ISTYPE.GEAI  GO  TO  ISO 
CONTMUE 

ESTABLISH  RANGE  WINDOWS 
WRITE  r.T 

WRITE  CO  RANGE  WINDOWS' 

WRITE  CO  ‘1  -  UNRESTRICTED’ 

YmiTE(*02  -  ESTABLISH  MM  aid  MAX  ENGAGEMENT  RANGES' 
WRITE  rO 

READ  I ,  £RR>200)JRNQ 
EJIRNQ.LT.I.OR.hNQ.QTi)  QO  TO  200 
EjjRNGECU)  THEN 

write  (‘.Venter  mm  range  and  max  range  mm 

REAOIViRFU20m  XMKLXMX 
WRITE  CO  XMNjdlX 
XMN.XMW1000. 

XMX-XMX/100B 

ELSE 

XM7M0.0 

XMX.1JE# 

ENOE 

BLUE 

IFIKSI0E.EQ.1I  THEN 
WHNGBIICOMUAND.1WXUN 
WRN^ICOMMAND^XMX 
IBPRIME(ICOMMANCU>.EL 
BPRMEOCOMMANOi)-ER 
E  (1HIEQ.CLAN0.ERE OX)  THEN 
MODE  FB<  COM  MAND>-7 
ELSE 


C 

c 


E  (MOOEFBdCOMAI 


D.EQ7X 


. . _„-MMAND|X _ 

DETERMINE  END  TIME  OF  SEARCH  MODE  L _ _ 

SEARCH  MOOE  OR  ENTERING  SEARCH  MODE  FROM  SURVEILANCE  MODE 
ALFT1.EL 
ARGT1JPH 

E^TLGTUAROTI,  ARGT1.ARGT 1*300. 

ARQT2-ISR 

F  (ALFT2.GTARGT2)  AROT&AfiaT2*3#0. 


NS Y  S-IESYSICOMMAND.  11 

SnilgglJJ^1-ALFTlHARG'I2-ALFT2)ySRCHB(N3Y3l 

COMMANDIEO.7)  TSHOOT-STIME*flNOO 
COMMANO.EQ0  TSHOOT-TRMFB(ICOMMAND)-IT)ME 
AMAND).mME*STIME*TSHOOT 


C 

C 


F  (MOOEFL, 

IFIMOOEFB 
THMFBJCOI 
MODE  FB<  COMMAND).! 

ENOF 
ENOF 

F  (JSEC.EQO)  THEN 
BSEC0NDlKX)MMAN0.1)>0 
BSECONCK  COMMAND^-0 
ELSE 

BSECONOICOMMAMT.IWISL 

IBSECONO<COMMAM)i).ISR 

ENDF 

F  (NSUBHE.O)  THEN 
IF  (ISUB.EQ.1)  THEN 

Allocate  sequentially  to  all  suboromates 

PANGLE-PB-PL 

SANGLE-SR-SL 

MSUS-0 

DO  157  UNSU81MSUB2 

WR^^™  Ea'  AND',83YS<l-,»-LE-,0)  ™EN 
WRNGBII^-XMX 
MSUB.MSUB+1 

F(BW_EQ.O>NO.FILEO.O)  THEN 
MQKFB(I).7 

_  F  (M00EFBjl).EQ7.0RM00EFB(l).EQ1)  THEN 

DETERMINE  END  TIME  OF  SEARCH  MOOE  CYCLE  F  ALREADY  M 
SEARCH  MODE  OR  ENTERING  SEARCH  MOOE  FROM  SURVEILLANCE  MOOE 
ALFTl.IPL 
ARGT1.IPR 

F  (ALFT1.0TARQT1)  ARGT1«ARGT1*3». 

ALFT2-BL 


29 


170 


17# 


ARQT2-BR 

FlALF  a  :vTARGT2)  ARQTZ>ARQT2*m 


SB" 


i-MFTiK<AAan-Airra)v8ncHB<Nsvs) 


147 


171 


172 


C 

C 


_ FWM 

END* 

END* 

ENOF 

CONTMUE 

OP ANGLE-P  ANGLE/M  SUB 
OSANQLt-SANQI  E/MSI  18 

C-0 

00  170I-N3U81.NSUB2 

F  (BSV8<U»J«.I.ORie3YS<l.1).QT.10)  OO  TO  170 

CMC-.1 

BPRME(L1>-MT(PL*JIC-trCP  ANGLE) 

BPRWElljCilNT (PL  ♦C'DP  ANGLE) 

FJBEc'ssrL 

ELSE 

BSECONOgi).WT(3L*<IC-1)t)SANGLE) 
S8EC0ND(L2$.MT(SL»IC*09ANGLE) 

ENOF 
CONTMUE 

FJISTI  _ , 

00171  kNSUBQ _ 

F  00  70  171 


UbXO 


LAST-1 
CONTMUE 
ENOF 

F  (ISTYPE.EOS)  THEN 
DEL-N8U82NSUBH1 
DO  172J-1.DEL 
UNSUB2^j-1) 

F  (jBSYS(t2)  NE.  1.0aiBSYS<l.  1).GT.  10)  GO  TO  172 

BSECONOn.lvef^lMEmAST.11 

eSECONOOiS-IBPRIMEilLASTii 

ELSE 

B9EC0N0(U)-ISR 

BSECONO(UHNT(SL»OSANQLE) 

F  (FSIECONtggjGT MO)  IRSECONO(L2).RSECONO(L2)-360 

LAST-1 

CONTMUE 

ENOF 

ENOF 


F  (BUaEOJ)  THEN 
EVERY  ONE  GETS  THE  SAME  ZONES 


DQ_17SUNSUB1I£SUB2 


-XMN 
■XMX 

Eli,f)-IBPRIME(ICOMMAN0.1) 
BPRME(l.2HBPniME(COUMANOi) 

F  (SSVS(l2)EaiAND.BSVS(L1)LE.10)  THEN 
F(fLEaOANb.FREaO)  THEN 
M00EFB(l)-7 
ELSE 

F(MOOEFB(l)EQ.7.0R.MOOEFS(ILEa.1LTHEN 
DE  TERM  ME  END  TIME  OF  SEARCH  MODE  CYCLE  IF  ALREADY  M 
SEARCH  MODE  OR  ENTERING  SEARCH  MODE  FROM  SURVEILLANCE  MOOE 
ALFT1-FL 
ARQT1.FR 

FjALFTtOTARQTI)  ARGT1-ARGTW360. 

ARGli-Sfl 

F  (ALFT2.GT  ARQT2)  ARQT2-ARG72-360. 

NSVS-BSYSai) 

STIME-«ARaTl-ALFTlK(AflGT2-ALFT2))(SRCH8(NSYS) 

F(UOOEFB(l).Ea.7)  TSHOOT-STME*RNO0 
F  IMOOEF8jh  EQ.il  TSHOOT-TRMFBJIHTIME 
TW4FB(0-mME-STME*TSHOOT 
MOOEFBJQ-I 
ENOF 
ENOF 
ENOF 

F  (I3EC.EQ.0)  THEN 

BSECOMkl.lJ-0 

eSECONOJUH) 

ELSE 

BSE  CCM  0(1. 11-IB3E  CO  ND(  COMMAND,  1) 
IBSECOND<L9-SSECOW(ICOMMAN04 
ENOF 
CONTMUE 
ENOF 


C 

c 


c 

c 


ENOF 
ENOF 

RED 

IF  (KSOE.ECL2)  THEN 
WRNGRJCOMUANO.IJ-XMN 
WRNGRjlCOMMANDit-XMX 
nPRIMEJCOMMAMTill-FL 
nPRIMEOCOMMANOifclPfl 

F  (FL.EQ.OAW.FR.EQC)  THEN 
MOOEFR(COMMANO)-7 
ELSE 

F  (MOOEFRJCOMAI 

DETERMINE  END  TIME  OF  SEARCH  MOOE  CYCLE  F  / _ _ 

SEARCH  MOOE  OR  ENTERING  SEARCH  MOOE  FROM  SURVEILLANCE  MOOE 
ALFT1-FL 
ARQT1-IPR 

F  (ALET1.GTARG71)  ARGTI-ARGT1-S60. 

ALFT2-ISL 
ARGT2-ISR 

F  (ALFT2.GT ARGT2)  ARGT2-ARGT2.360. 

NSYS-nSYSJICOMMAND.il 
SriM£^ARGTlALFTt>»(AflGT2-ALFT2)>anCHR(NSYS) 

F  (MOOEFI 

FJMOOEFnJtCOMMANCf).EQ.11 _  ... 

TRMFRJICOMMANO).mME-STlME*TSHOOT 
MOOEFRJCOMMANOM 
ENOF 

ENOF 

F  (ISEC.E  0-0)  THEN 
«SECOND(ia>MMAN0,l).0 
IRSECOND(COMUANOi5-0 
ELSE 

nSECONOJCOMMANO.IWISL 
IRSECONO()COMMANOS)-ISA 
ENDIF 

F  (NSUB.NE  O)  THEN 
IF  (ISUS.EQ.il  THEN 

Allocate  uniformly  to  all  subordinates 

PANGLE-PR-PL 
SANQLE-SR-SL 
MSUB-0 

DO  167  I-NSUB1NSUB2 

FjnSYS(IS)EO.1AND.IRSYS(l.1)XE.10)  THEN 
WRNGHJLIl-XMN 
WRNQRJI2-XMX 


v _ v _ _  EQ.7)  TSHOOT-STTME'RNDO 

FJMOOEFRj  COMMAND). EQ.1)  TSHOOT-TRMFRJCOMMANOMTIME 


F  (IPLEQ.0ANO.IPRSO.0)  THEN 
MOOEFR(l)-7 


ELSE 

F  (MOOEFRjn .EQ.7,OR.MOOEFRJI).EQ.  1 1  THEN 
C  DETERMINE  END  TIME  OF  SEARCH  MOOE  CYCLE  F  ALREADY  M 
C  SEARCH  MOOE  OR  ENTERMG  SEARCH  MOOE  FROM  SURVEILLANCE  MOOE 
ALFT1-IPL 
ARQT1-IPR 

F  JALFT1.GTARGT1)  ARQT1-ARGT 1+380. 

ALFT2-ISL 

ARGT2-ISR 

F  JALFT2.QTARGT2)  ARGT2-ARGT2.30O, 

NSYS-nSYSJLI) 

STlME-J|ARGT1ALFTlH(ARGT2-ALFT2)ySflCHR(NSYS) 


FRjn-mM 
MODEFRJ0-1 
ENDIF 
ENOF 
ENDF 

167  CONTINUE 

DPANGLE-PANGlE/MSUB 

dsanqle-sangle/msub 

c 

ICM) 

00  160  I.NSUB1NSU82 

^^F^(nSYS(IS).NE.1.0R.IRSYS(L1).GT.10)  GO  TO  180 


WPRIMEJL  IVWTJPLHIC-II'OPANGLE) 
nPRIMEJLa-WTiPL-C-DP  ANGLE) 

F  (ISEC.EQ.O)  THEN 


IRSECONDJLI)* 

IRSECONOJU 
ELSE 

nSEC0WJL1)-MT(SLMX>ll*0SANGLE) 

nSECONO(L2T-INT(SL«C‘OSANGLE) 

ENDF 
160  CONTINUE 

F  (ISTYPE.Ea2)  THEN 
00  181  I.NSUB1.NSUB2 

F  jnSYS(l^).N£.1.0R.IR3YS(l.1).GT.10)  GO  TO  181 
F  (I.NENSUB1J  THEN 
IRSECONDll.U-IRPHlMEJiLAST.I) 
IRSECONDJI,2>-IRPRlME(lLAST4 
ELSE 


nSECONOjLIWMTJSL-OSANGLE) 

KSECONDjlA-lSL 

ENOF 


181 


LAST-1 

CONTINUE 

ENOF 


30 


E(BTYP£.EQ.3)THEN 
DEUNSuea-NSOaui 
ooiKJ-uoa 
Mtsuont-D^ 

v<u 

•wca ok 


182 

c 

c 


ELSE 
RSECOtr 
BSECONL 
ENOtl 

ILAST4 
CONTINUE 
ENOIF 


;L2JJ«.1.0a«SY8<U).QT.10)  GO  TO  182 
THEN 


itSR 

>INT(SL*D8ANGLE) 


’  kvEHYoS^S  THE  SAME  ZONES 


c 

c 


^‘^TSIJsJ3EOTj»D.«8VS(U)XE.10)  THEN 
r  (|>LEaojiND.ipaEao»  then 

MOOEFROW 


ELSE 

SEARCH  mqoe  or  entewnq  search  mooe  from  surveillance  mode 

ALFT14PL 
ARGT14PR 


186 


flALFTl.QTAROTl)  ARGT1-ARGTU380. 

ALFT2.ISL 
ARGT243R 

IF  (jUJTZOT -ARG12)  ARGT24WQT24WL 
i^r^^VWlHAROT2V1LFT2))«RCHfl<NSYS) 

tshoot-oo _ _ _ _ _ _ 

f 

'  FR(n.rrK«E«sT 
MOOEFR(I)-1 
ENOIF 
ENOIF 
ENDff 

IF  (BEC.EO.OI  THEN 
RSECONO(l.1H> 

IRSECONO<L2M> 

ENOIF 
CONTINUE 
ENOT 

ENOIF 
ENOIF 


GOTO  141 

1000  CONTMUE 
RETURN 
END 

SUBROUTINE  COMMAND 

teMI^C^S^SOROEW 

WRITE  W  ■*  -  DIRECT-FIRE  TARGET  PRIORITIES1 
WRITE  Ht  -  INDIRECT-FIRE  ORDERS1 
WRITE  M  t  -  QUIT 

rSId^^rr-km  IWANT 
IF  (IWANTEQ.1)  CALL  MOVEOR3 
IF  hWANT.EQ-2)  CALL  FIREORS 
F  (rWANT.EQ.31  CAU.  OBSCURANTS 

IF  (IWANT.EQ-4)  CALL  PRIORTreS 

f  (IWANT.EQ  !  - 

8r  (IWANT.EO.C 
GOTO  10 
ENO 


CALLOFIREORS 
RETURN 


°  ^  COMMOWNEAPON^I8F.1WF.BFNAME(1^RF^AME^O^N^B^1Q).NWR(10). 

*  (^iavfcl£Fi^^^FB(200).tDEFR(200) 


DIMENSION  PK(8)W) 

CHARACTER'S  BFNAME.RFNAME 
WRITE  |*  *)  *4* 

WRITE  r.h  (R8<ISR),ISR-1  J6) 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

C 


WRITE  (V)  (RR(ISR).ISR»1J8) 


KSDE  1-BLUE  2- RED 

NSYS  ATTACKING  SYSTEM  NUMBER 

NITSYS  TARGET  SYSTEM  NUMBER 

NUM  ATTACKING  WEAPON  NUMBER 

NRNG  NUMBER  OF  RANGES  M  RANGE  TABLE 

PT  TARGET  HAlifiC 

PKIT  WEAPON  PK  ON  THIS  TARGET  AT  THIS  RANGE 
NUMT  TARGET  NUMBER 

PKIT4L0 

IF  (NSYS.GT.101  RETURN 
IF  (NITSYS.GT.10)  THEN 
PKIT.1.0 
RETURN 
ENOIF 

RANGE«RT*.860*tOO& 

DOIONR.1,6 

PK(NR1*0.0 

mo.o 
HUE 

DO  100  NR.1NRNG 
IF  (KS 


F  (KSIOE.EQ.1)  THEN 
:(NSYS-1),1»*(NUM-1)'6*NR 


N4NSYS-jlM»*<N 

R6e%RM!nI  r  TARGET  IS  EXPOSED  OR  IN  OEFLAOE 
JOEF.IOEFRINUMT) 

f  (JDEF.EQ.0I  THEN 
TARGET  IS  EXPOSEO 
NIT4NITSYS-1|-2«1 
PK(NR|-PKB(fLNIT) 

ELSE 

TARGET  M  DEFLADE 
NIT4NITSYS-1)*2+2 
PKJ|9fI)4»KB<N.NIT) 

ELSE 

N4NSYS-1)T8»(NUM-1)-6*NR 

R(NRHRR(N) 

OETERMME  IF  TARGET  IS  EXPOSED  OR  IN  DEFLADE 


C 

100 

C 


200 


NIT4NITSYS-1|*2»1 
PK(NFB-PKRQLNIT) 

TARGET  IN  DEFLADE 
NIT4NITSYS-1)"2*2 
PK^)-PKR(N,NIT) 

ENOIF 

WRITE  C-D  w  ■^KINRI.'R  R(NR) 

CONTINUE 

^ JSSiGE.St.RW^NO.RANGE.LT .R(U1|)  THEN 

rrs  between  these  two 

TOP  -  R^InCaE-^I  0 

fracpk-Seu^k1  tS’/BOT 
PKIT.FRACPK*PK(I) 

ENOIF 

CONTINUE  „ 

E(RANG£.GT.R(NRNG))  PKIT-OJJ 
RETURN 
ENO 


SUBROUTINE  TSHOOT  (RMINRMAX.TMIN.TMAXTRNG3TIME) 

C  INTERPOLATES  MIN  AND  MAX  ENGAGEMENT  TIMES  TO  GIVE 

C  TIME  in  ENGAGEMENT  MOOE 

c 

RNCMRNG*ia00l 

RM  IN-0.0 
BOT.RMAX-RMIN 
TOP-RNG-RM1N 
DELT.TMAX-TMIN 
FRACT4DELT*T0P/8OT 
STIME-FRACT»TMIN 
RETURN 
END 


SUBROUTINE  VMASK  (KSIDE.  (VEHICLE) 


31 


nooooooon  non  8  °  0  °  °o  0  00000  0000000 


r 


FMO  ANQU  AND  RANGE  TO  AU.  FHCNOLY  AND  THREAT  VEHICLES 
SO  THAT  MASKING  CAN  BE  EVALUATED 

VEHICLE  MASKING  ISONtV A POTENTIAL  PROBLEM  FOR  VEHICLES 
WITHIN  100  METERS  OF  THE  SHOOTER.  SINCE  TERRAIN  DEVIATIONS 
WILL  MAKE  VEHICLE  MASKING  LARGELY 

IRRELEVANT  NEAR  THE  TARGETANOOVER  THE  INTERVENING  DISTANCES. 
COMMON/MASKVSVMSKI40&21 

COMMONIFORCEWIEROm^HCmiqgJLmiT(»X»RUNIT(200|. 

A  BSYSflOO JI.IRSYSiaOO^I.L  1  BF,L2FriJF.L IRF.NB.NR 
Ct%MON/M0VE/8X>A(2O<u).RXVAJ2OO.2).l&SA(2OCl2).IRSAJ2OO,2). 

A  LlBMLiM.L3M.L1RM 

CHARACTER1^)  L1BF.L2FX3F.L1RFL1BM.L2M.L3MJ.1RM 
CHARACTER*!#  SHIER, RHIER.IHIER 
CHARACTER'S*  BUNITRUNIT 


KSIDE  -  1  -  BLUE  2-REO 

IVEHICLE  -  VEHICLE  WHICH  IS  SHOOTING 

VM3KII.1)  -  RANGE  TO  EACH  VEHCLE  IN  FORCE  STRUCTURE 

VMSKjuj  -  ANGLE  TO  EACH  VEHICLE  IN  FORCE  STRUCTURE 

PU3.141S8 
VITALIZE  ARRAYS 
00  10  1-1.400 
VMSK(L1)-1.0 
VMSMUHXO 
CONTINUE 

FIND  SHOOTING  VEHICLE'S  LOCATION 
IF  (KSIOE.EO.il  THEN 
XS-BXYAnVEHCLE.l) 

YS-BXYA(  (VEHICLE  ,2) 

ELSE 

XS-RXYAIIVEHCLE.I) 

YS-RXY/i(IVEHICLEi} 

ENOIF 

CYCLE  THROUGH  AU  BLUE  ANO  RED  VEHICLES  TO  FILL  MASKING  ARRAY 
IALUNB-NR 
DO  20  U1.IALL 
IF  ILGT.NB)  THEN 
IWANT.FNS 
XT-RXYA(IWANT.1) 

YT.RXYA(IWANT.2) 

ELSE 

IWANT.I 

XT-BXY  A(IWANT.  1 1 
YT-BXYA(IWANT jj 
ENOIF 

RANGE -«XT-XS)"2*(YT-YS)**2)**.5 
IF  (RANGE.GT.6.1L GO  TO  2o 
FIND  ANGLE  TO  THIS  TARGET 
TOP-YT-YS 
BOT-XT-XS 

f  (BOT.EO.O.O)  BOT-BOT-.OOI 
DIR -AT  AN(A&S(TOP)/A8S(BOT))*1807PI 
IF  (BOT  XT(LO)THEN 

F  (TOPXT.O  0)  DtR-DIR-100. 

F  (TOP.QTJJJS)  DIR-180.-DIR 

ELSE 

F  (TOPLTD.O)  DIR-360.-OIR 
ENOIF 

CONVERT  THIS  COORDINATE  SYSTEM  DIRECTION  TO  AN  AZIMUTH 
CALL  FAZ  (DWAZIN) 

VMSKII.R-RANGE 

VMSKIIET-AZIN 

CONTINUE 

RETURN 

END 

SUBROUTINE  VSEE  (MYSIOE.KJ, RANGE AZIN.JSKIP.NB, NR) 

EVALUATES  VEHCLE  MASKING  TO  SEE  IF  TARGET  CAN  BE  SEEN 

COMMON/MASKV(VMSK(400^) 

MYSIOE  SHOOTING  VEHICLE  SIDE  (1  -  BLUE.  2  •  RED) 

K  SHOOTING  VEHICLE  NUMBER 

J  THE  TARGET  (IT  IS  OF  COURSE  IN  THE  FIELD  OF  VIEW) 

RANGE  TARGET  RANGE  (DON'T  LOOK  FOR  MASKING  BEYOND  THIS  RANGE) 
AZIN  AZIMUTH  TO  TARGET 


JSKIP  FLAG  TO  SKIP  THIS  TARGET  F  MASKED  M  TO  SKIP) 
VMSK  VEHICLE  RANGE  AND  AZIMUTH  DATA  FROM  SHOOTING 

F  (MYSI0E.EQ.1)  THEN 
ITSKIP.J 
MESKIP-K 
ELSE 

ITSKIP-J-NB 

MESKIP-K-NB 

ENOIF 

IALL-NB-NR 

PU3.141SS 

AVERAGE  WIDTH  OF  AN  ARMORED  VEHICLE 
WIDTH-471000. 

DO  10  l-1,IALL 
F  (JSKIP.EO  O)  GO  TO  10 
F  (I.EQ.ITSKIP1GO  TO  10 
IF  (I.EO.MESKIP)  GO  TO  10 
F  (VMSK(L1).GTJ).1)  GO  TO  10 
AZLFT-VMSK(I2)-1B07PI*ATAN(WOTW27VMSK<I,1)) 
AZRGT-VMSK(li)»1«07PI'ATAN(WtOTH(27VM3K(L1)) 


VEHCLE 


C 

C 

C 


F  (AZLFTXT.0.B  AZLFT-AZLFT. 
F  (AZFCT.GT.300.01  AZRGT-A2 


'♦300. 


10 


C 

C 

C 

c 

C 

C 

c 

C 


CONTINUE 
RETURN 
END 


AZRGT)  JSKF-0 


C 

C 

c 

C 

C 

c 


20 


SUBROUTINE  TERRMASK  (XS.YS.XTYTJSKF) 

EVALUATES  TERRAIN  MASKING  BETWEEN  SHOOTER  ANO  TARGET. 

TO  ENSURE  EQUIVALENT  TERRAIN  MASKING  CALCULATIONS  BETWEEN 
RED  ANO  BLUE  OVER  THE  SAME  TERRAIN.  MASKING  IS  ALWAYS 
CALCULATED  FROM  BLUE  TO  RED.  EVEN  IF  RED  IS  SHOOTER 

XS. YS  SHOOTER  REAL  WORLD  COORDINATES 

XT. YT  TARGET  REAL  WORLD  COORDINATES 
JSKIP  FLAG  TO  SKF  THIS  TARGET  IF  MASKED  (-0  TO  SKIP) 

COMMON/ELEVA/CONT(20).CLEV(10000) 

COMMON/GRIQ/NX.NY. SCALE. SCF  ACT, PRFACTZF  ACT 

DOUBLE  PRECISION  ANGLEANGLEI 

JSKIP-I 

WRITE  (10.*)  ANGLE.  ANGLET 

FIND  SHOOTER  ANO  TARGET  GRIO  COORDINATES 
TAKE  NEAREST  INTEGER.  SINCE  GRIDS  ARE  LOCATED 
CENTER  TO  CENTER  ABOUT  THE  SCALE. 

IXS-NINTIXS/SCALE) 

IYS-NINT  YS/SCALE) 

IXT-NINT  XT/SCALE) 

IYT-NINT  YT/SCALE) 

F  (IXS.LT.1)  tXS-1 
F  (IXTXT.1)  IXT-1 
F  (IYS.LT.1j  IYS-1 
F  IYTXT.1)  IYT.1 
F  IXS.GT.NX)  IXS-NX 
F  IXT.GTNX 
F  i  IYS.GT.N 
F  IYT.GTJ 
X1.1XS*SCA_ 

X2-IXT*SCALE 
YI-IYS'SCALE 
Y2-IYT-SCALE 

RANQE-((Y2-Y1)**2«(X2-X1)-2)**.5 

FIND  SHOOTER  AND  TARGET  ELEVATION 

IS-NY*(IXS-1HIYS 

S£LEV-C0NT(1ELEV(1S)) 

IT-NY*(IXT-1WIYT 

TELEV-CONT(£LEV(IT)) 

ADO  2.0  METER  TO  ELEVATONS  OF  TARGET  ANO  SHOOTER  TO  ACCOUNT 
FOR  VEHCLE  HEIGHT 
SELEV-SELEV-.002 
TELEV.TELEV4.002 

FIND  ELEVATION  ANGLE  TO  THIS  TARGET 
TOP-TELEV-SELEV 
SOT-RANGE 
ANGLE- AT  AN(TOP/BOT) 

TO  EVALUATE  MASKING.  FIND  THE  ELEVATION  ANGLE  AT  SCALE 
INCREMENTS  ALONG  THE  LINE  OF  SIGHT.  IF  ELEVATION  ANGLE  IS  GREATER 
THAN  THIS  ANGLE.  SKIP  THE  TARGET.  SINCE  IT  IS  MASKED  BY 
TERRAIN 

DY.Y2-Y1 

DX-X2-X1 

F  (ASSJDY).GT  ABSfDX))  THEN 
STEP  THROUGH  GRID  ALONG  Y  AXIS 
SLOPE.(X2-X1V(Y2-Y1) 

B-X2-SLOPE-Y2 

YUY1 

CONTINUE 

F  (JSKIP  EQ, 0)  GO  TO  200 
YI.YI*  SCALE  *DY/ABS(DY) 

XI-B+SLOPE*YI 
RI-(Q1LY1)“24(X|.X1)*71**.6 
F  (RI.GE.RANGE)  GO  TO  200 
iXI-NINT(XVSCALE) 
m-NlNT(YI/SCALE) 

ITI-NY*(IXH)*IYI 

XIXUIXI'SCALE 

YIYI-IYPSCALE 

RI-((YIY|.Y11**24(XIXI-X1)“2)**.S 
SELEVUCONTIIELEVHTnj 
FIND  ELEVATION  ANGLE  TO  THIS  GRIO  SQUARE 
TOP-SELEVFSELEV 
BOT.RI 

AN  GLEUATAN  (TOP/SOT) 


C  WRITE  (10.*)  1  ANGLEANGLEI 

F  IANGLEI.GT ANGLE)  JSKIP -0 
<30  TO  20 
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200  CONTINUE 
ELSE 

STEP  THROUGH  GRS  ALONG  X  AXIS 


tmKflr* 


xwxs 


c 

c 

c 


10  _ _ 

F  (jOKP.Iag  qo  to  ioo 

XbXUSCALE-OX/ABSOJX) 

YWUSLOPE-XI 

IXUNINTIXVSCALE) 
lYUNWTfmCAUE) 

ITUNV/KMUIYI 
XUa-DO-SCALE 
yiyliyi -scale 

8EuVbCOnT(ELEV(ITiu 
C  FIND  ELEVATION  ANGLE  TO  THI8  GRID  SQUARE 
TOP-S6LEVL8ELEV 
BOTafU 

ANGLEI-ATAN<T0P/80T) 

C  WRITE  (10.1  2>NGLE*NGLEI 

F  (ANGIE LG T JINGLE)  JSKF.0 
GO  TO  10 

100  CONTINUE 

ENOF 

RETURN 

ENO 


C 

C 

C 


SUBROUTINE  B2DOW 

ZOOM  WINDOW  TOR  BATTLE  PHASE 
ZOOMS  IN  ON  ACTIVE  OHIO 

COMMONIGRIQINXXY.SCALE.SCFACTPRFACT.ZFACT 

commonizdomiblx.blyIxlen.zfactnJcmax.ymax.yunit 
COMMON/MOVE/8XYA(20CUa.RXYA<2002).IBSA(2CCL2>.lflSA(2002). 
6  L1BMJ2MX3M.L1RM 

COMMONiFO^BHCR(200MTHIEIU20qAUNn'(S 
A  IBSYS(2002>JRSYS<2002U1BFX2FX3FX1RF.I 

CHARACTER*10  BHER.RHER.FUER 
CHARACTER-24  BUNTTRUNIT 

CHARACTER  •«  L1BFX2FX3FX1RFX1BMX2M.L3MJ.1RM 


C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 


END* 

GRJO  NXXY  OF  WMOOW  BOTTOM  LEFT  CORNER 

BLX. NMTIXMIN1SCAL£)*XUN(T 

BLY. NtNTlYM  IN/SCALE)  *YUN  IT 
CALCULATE  NEWZOOM  FACTOR 

XLENI-NX-XUNIT 

ZFACTNaXLEN1/XLENIXUNIT*ZFACT 

ZFACTN-ZFACT 

XMAX»XLEN*XUNIT 

YUAX>XLEN*YUNIT 

RETURN 

ENO 


SUBROUTINE  EUNITS 

ERASES  UNIT  LOCATIONS  (VEHICLES)  ON  MAP 
Y  9CAI E  SCFACTi 

_ .ELY.XLEN.ZFACfN.XMAX.YUAX.YUNIT 

COMMONiMOVE/8XYA(2002).RXYA(20a2).IBSA(2002).IRSA{2002). 
A  L1BM.L2M.L3M.L1RM 

CCMMON/Fk)flCE/BHIER(200|.RH£R(20pl,BUNfTf200)IRlJNrrc200), 

A  BSYS^2)JRSYS(20021X1BF.L2FX2FXlRFJte5iR 
COMMON/OLDMOV&BXYOLD(200.2}.RXYOLO(200,3 
CHARACTER-16  BHIER.RHIER.IHER 
CHARACTER-24  BUNITJIUN1T 
CHARACTER-1  BLANK 

CHARACTQI-SO  L 1BFX2FX3FX IRFX1BMX2MX3MX1RM 
DIMENSION  XARRAY(4),YARRAY(4) 
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BLX  BOTTOM  LEFT  X  COOR OPIATE 
BLY  BOTTOM  LEFT  Y  COOFD1NATE 
XLEN  ZOOM  W1NOOW  SIDE  LENGTH 
ZFACTN  NEW  ZOOM  FACTOR  TO  INCREASE  SCALE 

XUNTT- 1 1  (VNX-SCFACT 

YUNIT-S.8INY 

XMIN-1.0EA 

XMAX-0.0 

YMW.1.0E6 

YMAXMXO 

DO  lOMIja 

F  (eSYSIMLGT.in  GO  TO  10 
(YAlb)XT.XMIN)  XMM-BXYAII.1) 
BXYA/l.lJ.GT.XMAX)  XMAX-BXYAII.1) 

_  XCaXT.YMIN)  YMIN-BXYAII2) 
KL2I.GT.YMAX)  YMAX.BXYA(L2) 

0011MJM 

F  (IRSYS(LI).QT.IOI  QO  TO  11 
L1)XTJQ4(N)XMIN.RXYAII.1) 
(l.1).GTJ(MAX)  XMAX-RXYAII.1) 
Oij.LT.YMIN)  YMW-RXYAIli) 
Kl4.GT.YMAX)  YMAX-RXYA(L2) 

XMIN-XMIN- SCALE 
XMAX>XMAX*SCALE 
XAVG.XMIN.XMAX 
XAVG-XAVG/2. 

DX-XMAX-XMIN 
YM  IN.  YM  IN-SCALE 
YMAX-YMAX  .SCALE 
YAVa.YMIN.YMAX 
YAVG.YAVG/2. 

OY.YMAX-YMIN 

WINDOW  EDGE  LENGTH  M  GRIO  UNITS 
F  (OY.GTXIX)  THEN 
XLEN-NINTpY/SCALE) 

F  CXLENXTA.1)  XLEN-4.1 
XMIN-XAVG  3Y/2. 

YMIN.YAVaDY/2. 

ELSE 

XLEfMUNTJDX/SCALE) 

F  (XLEN.LT.4.1)  XLEN-4.1 
XMIN.XAVaOX/2. 

VMM.YAVG-OX1Z 


ISKIP-0 

DRAWS  ANO  FILLS  A  SQUARE  FOR  EACH  UNIT  LOCATION 
SIDE  LENGTH  IS  5  METERS  SINCE  LARGEST  UNIT  IS  A  SQUAO  VEHICLE 
WHEN  AT  MAX  ZOOM 

AT  MIN  ZOOM.  BOX  IS  DRAWN  LARGER  SO  YOU  CAN  SEE  IT 

CALL  PLOTS  (0.1.0) 

CALL  FACTOR  (ZFACT) 

XUNIT.mvNX-SCFACT 
YUN1TO.SINY 
■  fXUNIT.I  I.ONX’SCFACT 
GYUNITa.SINY 
XUNIT^JXUNIT/SCALE 
YUNIT-GYUNIT/SCALE 
XUXUNirj)06ISCALE*2. 

YL.VUNir.006/SCALE-2. 

C  XL-XUNIT.  150/SCALE 

C  YL-YUNTP.  150/SCALE 

C  XL-XUNir.  1  SO/SCALE 

C  YL-YUNir.150ISCALE 

F  (XLEN.GT.a  i  THEN 

CAU  FACTOR  (ZFACTN) 

C  XL.XUNITM50/SCALE-ZFACT/ZFACTN 

C  YL»YUNir.150/SCALE*ZFACT/ZFACTN 

ENOF 

DO  200  N- 12 
DO  100  U1200 
ISKF-0 

F  (N.EQ.1)  THEN 
IHIER-BHIERm 
BLANKMHIER(i:1) 

ELSE 

WIER-RHIER(I> 

6LANK-IHIER(T:1) 

ENDF 

F  (BLANK.EO.'ff)  GO  TO  SO 
F  jBLANK.EQ.'RT  QO  TO  SO 
GOTO  100 

50  F  (N.E0.1)  THEN 
X.BXYOLD(l.1) 

Y-BXYOLO(i!a 
CALL  NEWPEN  Ip) 

F  (I6SYS(I2).EO.O)  CALL  NEWPENfO) 

ELSE 

X^XYOLDfl.1) 

Y-HXYOLOOij 
CAU  NEWPEN  (0) 

F  (IRSYS(I2).EQ.0)  CAU  NEWPEN(O) 

ENDF 
XJCXUNIT 
Y.Y-YUNIT 
F  (X.LE.0.01  ISKIP.1 
F  W.LE.0.0)  ISKIP.1 
IF  (XLEN.GT.O.)  THEN 
CALL  ZOOMIT  (- 

Sf“ 

ENDF 

F  (ISKF.EQ.1)  GO  TO  100 
C  DRAW  ANO  FIU.  FOUR  SIDED  SQUARE 

XARRAY  1)  -X.XL/2. 

XARRAY  2  -X.XU2. 

XARRAY  (3  .X-XL/2, 

XARRAY  4  -X-XU2. 

YARRAYM  -Y-Y UZ 
YARRAY  21-Y+YL/2. 

YARRAY  3  -Y.YL/2. 

YARRAY  (4  .Y-YL/2. 


u.i  inen 

ZOOMIT  (X.Y.ISKIP) 

1  (Y.GT.(.96*YMAX))  ISKIP.1 
:  (XXT.(.OS-XMAX))  ISKF.1 
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,00  Cj^^V-VAHRAV‘ 

200  CONTINUE 

c  ASP 

END 

SUBROUTME  BCONT  (K) 

C  CONTPLOT-FOR  FOR  BATTLE  PHASE 


3  generated  by  so 
FEE  FOR  CONTOUR  SEGMENTS 


r  SOFTWARE 


C  PLOTS  CONTOUR  MAP  AS  ( 

C  OPENS  CONTSEQMOAT  FI 

COMMONORKyNX.NV.SCALE.9CFACT.PRF  ACT  .ZFACT 
OM»»NgOUTOXTmOOLV,(1  «X 8JS20  WQ).Y2(1  100).C<1 100,. 

WIMONa3MiiWXaLYjaEKZFACTNjaAAX.VMAX.VUNn' 


NX 

NV 

SCALE 

SCFACT 

PRFACT 

ZFACT 


NUMBER  OF  X  GRIDS 

NUMBER  OF  V  OR IOS  (SHOULD  EQUAL  NX) 

REAL  WORLD  SCALE  FACTOR  FOR  EACH  QRD 
SCREEN  SCALING  FACTOR  FOR  X  DIRECTION 
PRINTER  SCALING  FACTOR  FOR  X  DIRECTION 
ZOOM  FACTOR  FOR  SIZE  OF  GRIO  ON  SCREEN 


BKF.0 

CAU  NEWPEN  (7> 

CALL  FACTOR  (ZFACT) 

IF  (XUN.QT.a)  CALL  FACTOR  (ZFACTN) 

C 

K-JCON 

J-K-1 

oozoouy 

CAU.  NEWPEN  (NCOUICfl))) 

x>xiin 

Y-viiJ 

F  (XLEN.QTTL,  CAU  ZOOMIT  (X.Y.ISKF, 
F  (BKF.Ea.1)  GO  TO  200 
CAU  PLOT  (X.YJ, 

CAU  ZOOMIT  (XY.ISKIP) 
F  (ISKF.Ea,|  GO  TO  ZOO 
CALL  PLOT  (JLY.Z> 

ZOO  CONTINUE 

C  CALLI^T(0.AS80| 

RETURN 

END 


SUBROUTME  PLME 
COMMONER  Id  HU 


rfactzfact 

UUAXYMAXYUNIT 


_ , _ FACTOR  (ZFACTN) 

GXDNIT.n^WU'SCFACT 

QYUNIT-A.VNY 

XUNIT-GXUNIT/3CALE 

YUNIT-QYUNIT/SCALE 

XS-XrXUNIT 

Y8.V,*YUNIT 

F  (KSIDE.EQ.1)  CAU  NEWPEN  » 

F  (KSICE.EQ.2)  CAU  NEWPEN  itt) 

F  (XLEN.GT.O.)  CAU  ZOOMIT  (XS.YS.BKIP) 
CAU  PLOT  (XS.YS.3) 

XT.X2*XUNfT 

YT.YrYUNIT 

F  (XUN.QT.O)  CAU  ZOOMIT  (XT.YT.BKIP) 
CAU  PLOT  (XT.YT.2) 

RETURN 

ENO 


SUBROUTME  OLDPOS 


SUBROUTINE  POUST 
PLOTS  OUST  PUFFS 

COMMON/PUFFS/ IWSPEED.IWDIR.  OUST .EXPLFFDTPUFF.TE  NOPUFF. 
A  IOUSTI.IOUS1Z.MXIST.ENGI.CNGZJCNG.ISMKt.ISMKZ.NSMX 
A  IARTl,lART2.NART.PTDUSTl2A00,3|.PTENG(24O0,3).PSMKI4O0ZI. 

A  TA^400^J>ART(9a^TMRT(9a«J<XBTMXjENGMXNSSikMX 

COMMONER  OINXJIY.SCAU.SCF  ACT  .PRFACT.ZF  ACT 
COMMON/ZOOMiBLX.BLYJ(LEN^FAC7N.XMAXYMAXYUNiT 
COMMON/EDPUF  FSIIOERASE  J>TDRASE<2400.3) 

BKF.0 

ORAWS  A  GREEN  CIRCLE  FOR  EACH  PUFF  LOCATION. 

AND  SAVES  THIS  PUFF  FOR  LATER  ERASING. 

RADIUS  IS  BASED  ON  PUFF  TIME  WHEN  AT  MAX  ZOOM. 

AT  MIN  ZOOM.  CftCLE  IS  DRAWN  LARGER  SO  YOU  CAN  SEE  IT. 

CAU  FACTOR  (ZFACT) 

GXUNIT.1  UYNX'SCFACT 
GYUNIT-A.5MY 
XUNIT  -GXUNIT/SCALE 
YUNIT.GYUNIT/SCALE 
DERASE-0 

00  100  UIOUST1.IOUSTZ 
TIME-PTOUSTII.M 
RAOtUS-TWE-eXPUFF-XUNITM  .0 
X«PTDUST(L1)*XUNIT 
Y4»TDUST  li)*YUNIT 
C  WRITE  (Y)  ■RADIUS  X  Y 

C  WRITE  M  RAOWSXY 


C 

C 

c 

c 

c 

C 

c 

c 


WRITE  M  RADWSX 
IF  (XUN.Gt.0J  THEN 

CAU  FACTOR  (ZFACTN) 
RADIUS«AADJU3*ZFACT(ZFACTN 


ENOF 


CAU  NEWPEN  (KM 
- - IISKF.1 


1S.*RAOIUS).L£.0.0) 
- (S)XE.f 


100 


F  _ 

F  j(Y-15.‘RADIUS).LE.6.6i  iSKF-1 
IF  (XUN.QT.04  THEN 

CALL  ZOOMIT  (XY.BKF) 

F  ((Y*RADIUS).GTj.fi6-YMAX))  ISKIP-1 
F  («-Z-RADIUS)j1e.O  O)  ISKlP.1 
f  (or-a*RAOiu9u.o4  iskf., 

ENOF 

F  (ISKF.EQ.il  GO  TO  100 
DRAW  CIRCLE 
CAU  CIRCLE  (XY .RADIUS) 
CERASE-BERASE*, 
PT0RASE(10£RASE,t)-PTDU8T(L1) 
PTORASE  lOERASEij-PTDUSTjlij 
PTDRASEjlS£RASE!3i-PTOUST(5) 
CONTINUE 
RETURN 
ENO 


C 

C 

C 

c 

c 

c 

c 

c 


COMMONIMOVE/BXYAOO(X2)JRXYA(ZOaZ),IBSA(ZO(L2).IRSA(ZOOZ). 
»  L1BM.LZM.L3M.L1RM 

- - XYDLDOOOZI.RXYQUXZOOil 

NITffOOI. 


COMMON/OLOMOVEIBXYOLO(Z0aZ),RXYOlD(20OZ 
COMMONFORC£«H£R(200).RHIEnaOQ).BUNIT(S 
A  BSYS(200i).lR3Y8«00i).L1BF.L2Fl5FXlRFJ 

CHARACTER'S)  L1BFX2FX3FX1RFX1BMXZMX3MX1RM 
CHARACTER  “24  BUNITflUNIT 
CHARACTER"  1#  BHIER.RHER.IHER 

DO  10U1.NB 
BXYOLD(t.1>BXYA/l.1) 
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SUBROUTME  PENG 
PLOTS  ENGINE  SMOKE  PUFFS 

COMMONIPUFFS/1WSPEED.IWDB.IOU8T.EXPUFF.OTPUFF.TENDPUFF. 
»  OUST1  .IOUSTZ.NDUST.gNai  .FNG2.NENG.ISMK1.I8MK2JISMX 
A  IART1.IARnjURTF1DUST(2400.3).PTENQ(Z400.3)J>SMKM002). 

A  TASMKj*00,Z).PART (M^),TAART(MZ) JIOUSTMXJIENGMXNSMKMX 

COMMONER  D/NX.NY.SCAU.SCFACTPRF  ACT  '.ZFACT 
COMMOMZ(XMWBLXBLYXUN^FACTN.XMAXYMAXYUNIT 
COMMON/E  ENPUFF3/EERASE.PTERASEC2400.3) 

ISKF-0 

ORAWS  A  GREEN  CIRCLE  FOR  EACH  PUFF  LOCATION. 

AND  SAVES  THIS  PUFF  FOR  LATER  ERASING. 

RADIUS  IS  BASED  ON  PUFF  TIME  WHEN  AT  MAX  ZOOM. 

AT  MIN  ZOOM.  CIRCLE  IS  DRAWN  LARGER  SO  YOU  CAN  SEE  IT. 

CAU  FACTOR  (ZFACT) 

GXUNIT.1 1.(VNX’SCFACT 
GYUNIT-8.SNY 
XUNIT  .GXUNIT/SCALE 
YUNIT-GYUNIT/SCAU 
EERASE-0 

00  100  HIENQ1.ENGZ 


0011  MJA 

RXYl - 

RXYI 
CONTI 

RETURN 
ENO 


11  I.VWI 

■OLOfLy-AXYA/LI) 
OLD  lij-RXYAjLZ, 
NTMUE 


_ PUFF'XUNIT‘1.0 

X-PTENG(I.,)‘XUN1T 
Y.PTENGilZrYUNIT 
IF  (XLEN.GTOJ  THEN 

CAU  FACTOR  (ZFACTN) 
RAOmS-RAOlUS"ZFACT(ZFACTN 

ENOF 

CAUFCWPEN  (101 
F  IfX-l  5."RAOIUS).U.O.O)  tSKF-1 
F  (Y-1S/RADIUS  .U.o4  BKF.1 
IF  (XUN.GT.0.)  THEN 

CALL  ZOOMIT  (XY.ISKF1 
F  ((Y«RADIUS).GT.(.9S"YMAX))  ISK1P.1 
F  «X-Z."RAOIUS).LE.O.O)  ISKIP.1 
F  ((Y-Z*RAOIUS)XE.o4  BKF.1 
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ENCMF 

c  &K?S&j/aOTO,OB 

pterase i cerase , il  ._. 

PTERA3£lEERASE.2W,TEN 

PTERASEjl - 

100  CONT** 

RETURN 
END 

SUBROUTINE  MPUFFS 
C  MOVES  OBSCURANT  PUFFS 

COMMON/PUFF  S/IWSPEED.IWDtfLIDUST.EXPUFF.OTPUFF.TENOPUFF, 


[KMX, 


COUMOMSATTLEATIME.OrME.rFQTBaOO.i),iTaTR(200J). 
*  PKTBg^JN<m^^JKlJJ<a»l.lKllR(^.iAMRg001. 


C 

C 

100 

C 

C 

200 

C 

C 

300 

c 

c 

400 


PW3.141M 

QT-OTPUFF 

V-IWSPEEDM.AS3 

A2N-JMOIR 

CALI  FOB  (A2HLA2DUT) 

IF  (N0UST.GT.0)  THEN 
MOVE  OUST 

OOKMMOU8T1.CUST2 
MOVE  IT 

PTix«mi>-imxjsTaii*v*Drcos(AZouT*pi/iiav3ooa 

PTOusTj!4-PTDUSTjii}*VT)rsiN<A20U'rpviao.)«eoo. 

PTOUST(|J-PTOUST(W»OTPUFF 

ENDF 

¥  (NENQ.QT.cn  THEN 
MOVE  ENGINE  SMOKE 
00  200  UCNG1.IENG2 
move  it 

PTENQO.lH’TBVQll.lUV'OroOSlAZDUT'PVISO.VaSOa 

PTENG<i^PTENG<i2«vrDrsiN(AmurPviao.)oeQa 

^gNO^pTENGft^OTPUFF' 

ENOIF 


¥  MSMKME A  THEN 
MOVE  SMOKE  C - 


_ GRENADE  CURTMN 

00  300  USUK1.ISMK2 
MOVE  IT 

P3MKIl.1)-P3MKI1.1)+VTirCO3<A2DUrPV18av3800. 

PSMKjl^^3MKK2)tV*OT-SIN(faoUrPViaa|O800. 

TA^TASH*L1M>m*F 

ENOIF 

¥  (NARTNE.O)  THEN 
MOVE  ARTILLERY  SMOKE  CURTAW 
DO  400  UIART1.IART2 
MOVE  IT 

PART(L1)J»ART(L1)*V*OrCOS(AZOUrPV180.V3#00. 

PART|L2)-PART(L2UV*DT‘3tN(A2OUT*Pi/18O.)O0OQ. 

TAART(I.1)-TAART(L1HDTPUFF 

CONTINUE 

ENOIF 

RETURN 

END 


SUBROUTINE  OELPUFFS 
DELETE  DISSIPATED  OBSCURANTS 

COMMON1PUFFS/IWSPEED.IWDIRIOUST.EXPUFF.DTFUFF.TENOPUFF, 


101  CONTINUE 

tXISTIJSTART 

F^WL«TXEiLOR.DUSTl.GE.OUST2)  THEN 

OUST2«d 

NOUST-O 

ELSE 

NOUST-CUST2-CU3T1.1 

ENOIF 

ENOIF 

¥  (NENG.GT.O) THEN 

C  DELETE  DISSIPATED  ENGINE  SMOKE 
00  200  UCNQ1.CNQ2 
J-l 

¥  I  PTE  NOIJ.a.GE.TE  NOPUFF)  THEN 
C  THIS  PUFF  HAS  EXPIRED 
ISTART-J.  1 
PTENG<J,1)-I 

PTENGjjiS^E# 

ELSE* 

C  THIS  IS  THE  FIRST  PUFF  TO  CARRY  FORWARD 
ISTART-J 
GO  TO  201 
ENOiF 

200  CONTINUE 

201  CONTINUE 
IENQ1.ISTART 

JFJNENOXE.&OR.ENG1.GE.CNG2)  THEN 

l£NG2H> 

N  ENG-0 
ELSE 

NENG-IENG2-IENGW1 

ENOIF 

ENOIF 

¥  (NSMKNE.OI  THEN 

C  DELETE  DISSIPATED  SMOKE  GRENADE  CURTAIN 

00  300  UISMK1.ISMK2 
J-l 

IF  (TASMWJ.1I.GE.TENOPUFF)  THEN 
C  THIS  PUFF  HAS  EXPIRED 
ISTART-J«1 
ELSE 

C  THIS  IS  THE  FRST  PUFF  TO  CARRY  FORWARD 
ISTART-J 
GO  TO  301 
ENOIF 

300  CONTINUE 

301  CONTINUE 
ISUKl.tSTART 

IF  (ISMK1X3E  JSMK2)  THEN 

ISMK1-0 

ISMK2-0 

NSMK-0 

ELSE 

NSMK.ISMK2-ISMK1.1 

ENOIF 

ENOIF 

¥  (NARTNE.0I  THEN 

C  DELETE  DISSIPATED  ARTILLERY  SMOKE  PUFF 
DO  400  UIART1.IART2 
J-l 


IF  (TAARTIJ,  I ). IE. 0.01  THEN 
THIS  P&F  HAS  EXPIRED 


IKMX, 


COMMONIBATTLE/ITNE.nTIME,rrQTBC 

A  PKTB(200^)PKTH(200^J,IKIU.B(200).IKLS 
A  IAMB(2QO| 

FINOUST.GT.qi  THEN 
C  DELETE  DISSIPATED  OUST 
00  100 UOUST1.IOUST2 
J-l 

¥  {PTDUST(J,3).G£.TENDPUFF)  THEN 
C  THIS  PUFF  HAS  EXPIRED 
I3TART-J.1 
PTOUSTIJ.11-1 
PTDUSTjjA-1 
PTDU8Ttl3.1fO 
noust-nolSt-i 
asE 

C  THIS  IS  THE  FIRST  PUFF  TO  CARRY  FORWARD 
ISTART-J 
GO  TO  101 
ENDF 

100  CONTINUE 


ISTART-i.1 
ELSE 

C  THIS  IS  THE  FIRST  PUFF  TO  CARRY  FORWARD 
ISTART-J 
GO  TO  401 
ENOIF 

400  CONTINUE 

401  CONTINUE 
IART1.ISTART 

¥  (IART1.GE.IART2)  THEN 

IART1-0 

IART2-0 

NART-0 

ELSE 

NART.IART2-IART1.1 

ENOIF 

ENOIF 

RETURN 

END 

SUBROUTINE  NEWPUFFS 

C  CREATES  NEW  OBSCURANT  PUFFS  AS  REQUIRED  (OUST  AND  ENGME) 

COMMONIPUFFS/IWSPEEO.tWOlR.tOUST.EXPUFF.DTPLlFF.TENOPUFF. 
A  IOUST1.IDUST2,NDUST.IENQ1.ieNG2.NENG.lSMK1.ISMK2.NSMK. 

A  IART1,IART2.NART.PTDUST(2400.3)^TENG(2400.3).PSMK(400^). 

A  T«W<|400^)J>ART(99^).TAART(*L2)J1DUSTMXiiENQMX.N51IK 

COMMON/FORCE/BH£R{200),RHIER(20q).BUNtTr200LRLIN(T|200). 

A  IBSYSf200^).IRSYS(200i)L18F,L2FX3FLinF.NS,Nfl 
COMMOIWOVE/B>WA<200,2).flXYA<200.2),IBSA<200,2).IRSA<200.2). 

A  L1BM.L2M.L3M.L1RM 


4  KMX. 
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COMWOFYOBSCUR£jWQRENB<200,2LNGR£NFV2Q0,2VI6ESMK(2001, 

t  nESMto2oa 

CHARACtfflFlt  BMER.RWER.HCR 
CHARACTER'S*  BUNLT.RUN  IT 

CHARACTER-*  L18FL2F.UF.L1RF.L1BML2ML3M.L1RM 
IF  (XXI3T.EQ.1)  THEN 

PLAYING  OUST.  CREATE  NEW  OUST  PUFFS 

tS?TOTSEE^  Dim  ARRAY  NEEDS  TO  BE  COMPRESSED  SACK 
TO  COLUMN  1 
ITEST-NR-NB-  GUST2 
F  trTEST.GT J40USTMX)  THEN 
COMPRESS  ARRAY  BfiTORE  STARTING 
J-0 

DO  100  MOUST1.DUST2 

PTD-  8 T ( J.  1UPTDU3T (LI I 
PTOUST/jAPTDUSTjlij 


1M  TO^-PTDU3TW 

OUST  1-1 
KXIST2-J 
ENOF 
END# 

C  CREATE  NEW  PUFFS  AFTER  IOUSTZ 
J-0 

DO  200  U1.N8 

IF  (I8SYS<L2).EO.O)  GO  TO  200 
C  SKIP  KILLED  VEHICLES 

IF  (IBSA1L1J.LT.in  GO  TO  200 
C  SKIP  VEHICLES  MOVING  UNOER  6  KM/HR 
J-J-1 

X-6XYA1L1) 

Y.BXY/Ulii 
K-CUST2+J 
PTDUST(K,1)-X 
PTDUST(KiWY 
PTDUST  K.3p5TPUFF 
C  WRITE  (V)  PTD  LIST  1  3  J 

C  WRITE  M  (PTDUST(KL)L-1.3) 


DO  300  Ml  MR 

IF  (WSYSU2).EO.OI  GO  TO  300 
C  SKIP  KILED  VEHICLES 

IF  (IRSA1I.1J.LT.«  GO  TO  300 
C  SKIP  VEHICLES  MOVMG  UNDER  8  » 
J-J-1 

X-RXYAII.1) 

Y-RXYAIL2) 

K-I0UST2-J 
PTDUST(K.1)-X 
PTOUST&4-Y 
PTOUSThLS-OTPUFF 
300  CONTINUE 

OUST2-IOUST2-J 

N0UST-I0UST2-GUST1-1 


ENGINE  SMOKE 
FJNENGGT.O)  THEN 
TEST  TO  SEE  IF  ENGINE 
TO  COLUMN  1 
ITEST  -NR-NB-IENG2 


SMOKE  ARRAY  NEEDS  TO  BE  COMPRESSED  BACK 


IF  {(TEST.GTJ1ENGMJQ  THEN 
C  COMPRESS  ARRAY  BEFORE  STARTING 

J-0 

DO  110  UIENG1JENG2 
J-J-1 

PTENG(J.1)«PTENG<L1) 

PTENGOa-PTENG  I  jj 
PTENGjj3-PTENG<l3 
110  CONTINUE 

IENG1-1 
IENG2-J 
ENDIF 
ENOIF 

C  CREATE  NEW  ENGINE  SMOKE  PUFFS  AFTER  IENG2 
J-0 

DO  210 1.1  je 

F  (l8SYS<L2|.EQ.qGO  TO  210 
C  SKIP  KILLS}  VEHICLES 

IF  (IBESMKI!).EQ.q  GO  TO  210 
C  SKIP  VEHICLES  WITH  ENGINE  SMOKE  TURNED  OFF 
J-J-1 

X.BXYAIL1) 

PTENG(K,1)-X 
PTENG(IL2)-Y 
PTENGfcjj-OTPUFF 
C  WRITE  r.j  PTDUST  1  2  7 

C  WRITE  M  (PTDUSTflCUX-IJ) 


00  310 1-1/1 R 

F  (BSYSili)EQ.m  GO  TO  310 
C  SKIP  KILLED  VEHICLES 

F  (IRESMK(I).EO.O)  GO  TO  310 


C  SKF  VEHICLES  WITH  ENGINE  SMOKE  TURNS)  OFF 
J-J-1 

X-RXYAIL1) 

Y-RXY1UL2) 

K-IENG2-J 
PTENGIK.11-X 
PTENGiKij-Y 
PTE1KVK.S-OTPUFF 
310  CONTINUE 

CNG2-IENG2-J 

NENG-IENG2-IENG1-1 


RETURN 

ENO 


SUBROUTINE  ERASEPUFFS 

ERASES  ALL  PREVIOUSLY  DRAWN  OUST  AND  ENGINE  SMOKE  PUFFS 
COMMOILPUFFSIIWSPEED.IWOIR. OUST EXPUFF  OTPUFF.TENDPUFF, 
8  IOUST!.IOUST2.NOUST.£NGt.eNa2NENG.lSMK1,lSMK2.NSMK, 

8  IART1.IART2.NART.PTDUST(2400.3).PTENG(2*00.3).f>SMK(*OOE), 

8  TASMKj-.;C.2)  E ART  (S8^).  TXaR  T(  98J)  .NOUS  TM  X.NENGM  XHSMKM  X. 

COMMON1GRIOINX/JY,8CALE.SCFACTPRFACTEFACT 
C0MM0N*700Mi8LX,BLY.XLEN.ZFACTN.XMAX.YMAX.YUNIT 
COMMON/E  OPUFFS/IOE  RASE. PTORASEI2A00.3) 

COMMON/E  ENPUFFS/ IE  ERASE  _PTERASE(2*00.3) 


DRAWS  A  BLACK  CIRCLE  FOR  EACH  PUFF  LOCATION. 

RADIUS  IS  BASED  ON  PUFF  TIME  WHEN  AT  MAX  ZOOM. 

AT  MIN  ZOOM.  CIRCLE  IS  DRAWN  LARGER  SO  YOU  CAN  SEE  IT. 

CALL  FACTOR  (ZFACT) 

GXUNIT.1  I.QlNX'SCFACT 
GYUNIT-8.SINY 
XUNIT  -GXUNIT/SC  ALE 
YUNIT-GYUNIT/SCALE 

00200 J- IE 

F  (J.E0.1J  CRASE-JOERASE 
F  (J.EQii  ERASE-CERASE 
00  IX  Ml, ERASE 
F  (J.E0.1J  THEN 
TIMEW>T0RASE(L3) 

X-PTDRASE(L1)'XUNIT 

Y-PTORASEIEJ-YUNIT 

ELSE 


ENDF 

RAOIUS-TIME*EXPUFF*XUNrT*1 .0 
C  WRITE  (Y)  -RADIUS  X  Y 

C  WRITE  M  RADIUS JLY 

IF  (XLEN.df.0J  THEN 

CALL  FACTOR  (ZFACTN) 

C  RAO  lUS-RADtUS-ZF  ACT/ZFACTN 

ENDF 

CAU  NEWPEN  (01 

C  F  (IX-RADKJSI.LE  0.0)  ISKIP.1 

C  F  1  Y-RADWS  LE.0.0)  ISKIP-1 

IF  (XLEN.GT.0.)  then 

CALL  ZOOMIT  (X.Y.ISKIP1 

C  F  ((Y-RADIUS).GT.(.96-VmaX))  ISKIP-1 

ENDF 

C  IF  (ISKIP.EQ.1)  GO  TO  100 

C  OR  AW  CIRCLE 

CALL  CIRCLE  (X.Y  .RADIUS) 

100  CONTINUE 
200  CONTINUE 
RETURN 
ENO 

SUBROUTINE  OBSCURANTS 
C 

C  ENTER  ORDERS  FOR  UNITS  TO  EMPLOY  ENGINE  SMOKE.  SMOKE  GRENADES 
C  OR  ARTILLERY  SMOKE  (NOT  DONE  YET) 

COMMON/GfltDNX.NY, SCALE. SCFACTPRFACT^ZF  ACT 
C  COM MO  N  TOURS/X 1  (1 1 00),Y  1  ( 11 00|.X2(1 1 00).Y2(1 1 00),IC(  1  tOG. 

C  8  NC(  1 5)  JJCOL(  1 5LJCON 

commonizcom)blx,blyjclenjfactn.xmax.ymax,yunit 

COMMON/FOBCE/BHIER{20C),RHIER(200).BUNITf200),RUNlT(200). 

8  IBSYS«00q,BSYS(2002),L1BF,LiFL3FL1RF/JB.NR 
COMMON/MOVE/8  XyA(200,2),RXYA(200,2).IBSA(200,2),IRSA(200,2). 

8  L1BM  L2M  L3M  L1RM 
COMMON/WEAPON  S/NBF/BF.BFNAME(10),RFNAME(10j,NYffl(10|/IWR<10). 

8  NRW8/1 0S).NRWR(  10.3LRB(1 8ffl.RR(180).PKB(1  ao^.PKRI  IBOiOI. 

8  NRNDe(3m.NRNOfl(3qjEMAXB(30).TEMAXROq.TEUINB(3l 
8  TEM  INR(30)ACOB(1 0.S) ACOR(10.5j,SRCHa(1 0)3RCHR(lO). 

8  MtLB[10.3).MILR(l6q 

COMMOfivsHOTS/EMBp00.3).NSHOTB(200.31.NSHOTR(200,3) 
COMMONAtANEUVEFV6XYO(200^),RXYOj200^).MTYPEB(2o6).MTYPER(200) 

8  ,BXYP(2002),RXYP(2QQ2).lSroB(2&),lSPQFl(200) 
COMMONffWE/IBPRIMEi2002).IBSECONO(200i).IRPRIME(2002). 

8  BS£CONO(2002).WRNGB(200^).WRNGfl(a002) 
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COMMON/MOOES/MOOEM 
ft  TCVMRta00.3).TTMM 

ft  MOOEF - 

ft  TTFM 
ft  TRMF 

CQMMON/BATTLE/ITimE.IOTIME.ITGT 
ft  PKTB<20Q,2),PKTRa00ja.iK*xa<200).IK 
ft  lAMBtiOO) 

CX3MMONlCeSCURE/*«fl£NB<300.2>,NaRENfl<2002).l8ESMK<2D0>. 
ft  WESMW200I 

C0MM0»mPES/NBAT,NCOMP.ICOMP<10).NPLAT(10),IPLAT(10.10). 

«  NsaooaioijpUTjsoo 

CHARACTER'S  BFNAUE.RFNAUE 
CHARACTER-*)  LINE 
CHARACTERS  BHIER.RHIER.IHIER 
CH^RACTER-J*  BUNIT.RUNIT 
CHARACTER-*)  LlBFX2f.UFX1RF11BM.L2M.L3M.URM 
CHARACTER-1  C2 

CHARACTER')  <%C%C4.C&C*C7.Cft.C*C10.BLANK 

KStOE-O 
D  WRITE  r.7 

WRITE  (-.-)  OBSCURANT  ORDERS' 

WRITE  hi  MW  BLUE  or  RED.  or  QUIT 
WRITE  (*,') 

READ  (V.ERR-10)  C3 
IF  (C2<l:i).£a-BT  KSIOE.1 
IF  (C2(1 :1).EQ.  m  KSIDE.2 
IF  C2)l:1).EQ.olQO  TO  1000 
IF  (KSIOE.Ea0)  GO  TO  10 

WRITE  f,-) 

WRITE  (V)  CURRENT  STATUS' 

1  FORMAT  (1X>B0t 

IF  (C2(1:1).EQ.'ff)  WRITE  f.11)  L1BM 
IF  {C2t1:1).ECL'R)  WRITE  f.11)  L1RM 
WRITE  C.7  UNIT  HIERARCHY  IDENTITY  ENGINE 

ASMOKE  SMOKE  GRENADES 
WRITE  (V) '  1  -  ON 

ftO.OFF  *  SHOTS  FIRE-1' 

IF  (C2(1:1).EQ.  B)  THEN 

BLUE 

KK-0 

DO  130K.1.NB 


FORMAT  (IX.  13. 1X_AID.A24,3(I«.4X» 

f  (83YS(K^).EQ.1AND.IBSYS(K.1).LE.10I 
WRITE  f  .121)  C8HIER(K).BUNIT(K).IBESMK(K).NGI 


THEN 

>REN8(K,1). 


WRITE  r.121)  CBHIER(K),BUNIT (K).IBE  SMK(K).NGRENB(K,  1 

* 

ENOIF 

IF  (KK.EQ  20)  THEN 
READ  hi 
KK-0 
ENOIF 

130  CONTINUE 
C 

ELSE 
C  RED 
KK-0 

OO  140K-1.NR 

IF  (IRSYS(ICg.EQ.1ANO.IRSYS(K.1I.LE.10)  THEN 
WRITE  f.121)ICRHIER(K)J«JNIT(Ki.lRESMK(K).NGRENR(K,1 

HK-WUl*1 

ENOIF 

IF  (KK.EOJIO)  THEN 
READ  (V) 

KK-0 

ENOIF 

140  CONTINUE 
ENDIF 

141  WRITE  r.*)  ENTER  COMMAND  UNIT  (OflELISTS  -1-GUIT)' 
WRITE  f .7 

READ  r.  .ERR-141)  COMMAND 
IF  (COMMANO.EQ.O)  GO  TO  5 
IF  (COMMAND.EO.-1)  GO  TO  10 
C 


142  WRITE  r.7  ENTER  NUMBER  RANGE  OF  SUBORDINATES  FOR1 
WRITE  r.TSUB-UNIT  ALLOCATION  (4START  «EN0)  (0  0  FOR  NONE)' 

READ  rXfeRR-142)  NSUB1.NSU82 
NSUB-1 

IF  (NSUB1XE.0)  THEN 
NSUB1-0 
NSUB2-0 
NSUB-0 
ENOIF 

IF  (NSUB2.LE.0)  THEN 
NSUB1-0 
NSUB2-0 
NSUB-0 
ENOIF 

IF  (NSUBEQ.O)  QO  TO  145 

C143  WRITE  f.7  'SUB-UNIT  ALLOCATIONS' 

ISUB-2 

C 

146  WRITE  ('.7 

WRITE  (’.7  ENTER  1  TO  TURN  ENGINE  SMOKE  ON;  0  -  OFP 
WRITE  r.7 


GMENADES;  0  -  NQ  FIRE' 


READ  ("  ,\ERR- 14®  IGSMK 
IF  (IGSMK.LTAOR.IGSMK.OT.1)  GO  TO  14ft 


BLUE 

IF  (KSOE  Eai)  THEN 


IF  (KStOE.EQ.il  THEN 

r  (SSYSI COMM AN02J.EQ.1  AND. IBSYS(IC0MMAN0.1)XE.  101  THEN 
IBESMK(COMMANO>-£NOSMK 

IF  (NGRENB(COMMANO.t).GT.O)  NGRENBIICOMMAN02UIGSMK 


IF  (ISUB.EQ.21  THEN 
EVERY  ONE  GETS  THE  SAME  ORDERS 


OO  175  UNSUB  1.NSU82 

IF  (IBSYS(I2).E0. 1  -AN0.i6SYS(L  1)1£.  10)  THEN 
®ESMK(I)-IEn(SmK 

F^gjGRENB(U).GT.O)  NOR EN 8(12) -KSSMK 

175  CONTINUE 
ENOIF 
ENOIF 
C 

C  RED 

IF  (KSI0E.E02)  THEN 

IF  (IR5YS(COMmAND.2).EQ.  1  AND. IRSYSi COMMAND,  1)1E.  10)  THEN 
IRESMKlICOMMANDUtENGSMK 

F^NGRENR(ICOUMAN0.1).GT.O)  NGRENR(  COM  HAND  2) -IGSMK 
IF  MSUB.EQ29.THEN 

C  EVERY  ONE  GETS  THE  SAME  ORDERS 

DO  185  UNSUB1.NSUB2 

IF  (lRSYS(l2).EaiANO.IRSYS(L1)XE.10)  THEN 
IRESMK/II-IENGSMK 

IFjNGRENR(l.1).GT.O)  NGRENR(I2)-IGSMK 

185  CONTINUE 
ENOIF 
ENOIF 


1000  CONTINUE 
RETURN 
END 


SUBROUTINE  GRENADES 

FIRES  SMOKE  GRENADES  AND  PUFFS  CURTAINS 

COMMON/PUFFS/IWSPEED.IWOIR.IOUST.EXPUFF.DTPUFF.TENOPUFF. 
ft  IOUST1.tOUST2,NOUST.IENG1.IENQ2,NENG.ISMK1.ISMK2AISMK. 
ft  IART1.IART2>IART,PTDUST(2400.3)PTENG(2400.3).PSMK(A002). 
ft  TASMKj4Q0,2)lPART(BQ,2).TAART(fl8L2).NDLISTM)LN£NGM)LNSMKMX. 

COMMON/oeSCURE/NGflENB(2004.NGRENR(200l2).IBESMK(200). 
ft  iresmkboo) 

COMMON(FORCE«HIER(aX)).RHeRS20m.BUNITaoOl,RUNrrc20a), 
ft  BSYS«0021.IRSYSl2002)XIBF.L2Fi3F.L1RF.NELNR 


ft  BSYSg002J.lRSYS(2002).L1BF,L2Fi3F.L1RF.NB.NR 
COMMON/MuVEyBXrA(2002).RXVA(2002).IBSA(2002),IRSA(2002). 
ft  L1BM  L2M  L3M  L1RM 

COMMON(BAfTLE/ITIME.IDTlME.ITGTB(2002).ITGTR(2002). 
ft  PKTB(2002).PKTR(2002).IKILLB(200).IKILLR(200).IAMR(200). 
ft  IAMB( 200) 

COMMON/FIRE/IBPRIME(2002>,IBSECONO(2002).IRPFUME(2002>. 
ft  «SECON0(2002).WRNGB(2002).WRNGR(2002) 

CHARACTER-ID  BHIER.RHIER.IHIER 
CHARACTER-34  BUNIT.RUNIT 

CHARACTER’90  UBF  X2F.L3FXlRF.L1BM12MX3M.L1RM 

SMOKE  GRENADES 
IFINSMK.GT.O)  THEN 

TEST  TO  SEE  IF  GRENADE  SMOKE  ARRAY  NEEDS  TO  BE  COMPRESSED  BACK 
TO  COLUMN  t 
ITEST-NR«NB*ISMK2 
IFJITEST.GT.NSMKMX)  THEN 
COMPRESS  ARRAY  BEFORE  STARTING 
J-0 

DO  110  I-ISMK1.ISMK2 
X— J-1 

PSMK(J,1UPSMK(I.1) 

PSMK(J2)-PSMK(I2) 

TASMK(J,1UTASMK(I,1I 
TASMK  J2j-TASMK(I.2) 

10  CONTINUE 
ISMKI-t 
ISMK2-J 
ENDIF 
ENDIF 

CREATE  NEW  SMOKE  GRENADE  CURTAINS  AFTER  ISMK2 
J-0 

PI-3.14159 
DO  210  U1.NB 


IF  (IBSYSM21.EQ.0)  GO  TO  210 
SKIP  KILLED  VEHICLES 


f  (NGRENB(l.2).EQ.O)  GO  TO  210 

SKIP  VEHICLES  WITH  GRENADE  SMOKE  TURNED  OFF 

IF  (NQRENB(I.I).EQ.O)  GO  TO  210 

SKIP  VEHICLES  THAT  ARE  OUT  OF  GRENADES 
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FIRE  GRENAOE  AND  REDUCE  NUMBER  BY  1 

SMOKE  GRENADE  VOLLEY ' 

ORIENTATION  OF  SMOKE  CURTAIN  IS  PERPENDICULAR  TO  THE  CENTER 
OF  THE  PRIMARY  SECTOR  OF  FIRE 
AI.BPRME(LI) 

A3.BPRMEL2) 
f  (A1.GT.A2)  A2-A2+: 

AWGaA1*A2 
AVO-AVCW.O 
APERP-AVG*90. 

f  (APERP.QE.3tOQ  APERP«APERP-3taO 


2+3002 


TA8MK(K2)-APEI 
AINBTHR 


IcurtainI 
VEHICLE  V 
CALL  FOR  (A^ 
PSMKPLIBMl 
PSMK«2)-Y+S^B 

amUfram* 


THROWN  A  DISTANCE  OF  20  METERS  N  FRONT  OF  THE 


irita‘PR'^2 
/10Q.*PI)  .02 


210  CONTI 


00  310  UINR 

IF  («SYSd2).EO.qi  GO  TO  310 

SKIP  KllED  VEHICLES 

f  (NGRENRIU9EQ.0)  GO  TO  310 

SKIP  VEHICLES  WITH  GRENAOE  SMOKE  TURNED  OFF 

IF  (NQflENR(LI)EQ.O)  GO  TO  310 

SKIP  VEHICLES  THAT  are  out  of  grenades 

J-J+1 

X.RXYAIU) 

y-hxya!l2} 

K-ISMK2+J 

FIRE  GRENAOE  AND  REDUCE  NUMBER  BY  1 
NGRENflftll.NGRENRrt.tM 

WRITE  (10,*) '  RED  'X  FIRES  SMOKE  GRENADE  VOLLEY" 
ORIENTATION  OF  SMOKE  CURTAIN  IS  PERPENDICULAR  TO  THE  CENTER 
OF  THE  PRIMARY  SECTOR  OF  FIRE 
AUIRPRIME(I.1) 

A2.IRPRIMEM 

IF  (Al.GT.A2)  A2-A2-.380.0 

AVG.A1+A2 

AVG-AVO2.0 

APERP+AVG+90. 

IF  (APERP.GE  .360.01  APERP-APERP-3KL0 
TASMKOUHAPERP 

CURTAIN  B  THROWN  A  DISTANCE  OF  20  METERS  IN  FRONT  OF  THE 
VEHICLE 


310  CONTI 


ISUK2-tSMK2»J 

NSMK-ISMK2-ISMK1+1 


RETURN 

END 


SUBROUTINE  PSMKCURTAMS 
C  PLOTS  SMOKE  GRENADE  CURTAINS 

COMMON/PUFFS/NVSPEEDJWDIRIDUST.EXPUFF.DTPUFF.TENOPUFF, 

IOUST1  ,IOUST2,NOUST,IEt  - - - - 

-  IART1.IART2.NART.PTDUS 
*  TAM4KJ«02M*ART(982).1 

COMMOWGflmiX.NY.SCALE.SCFACLPRFACTiFACT 
COMMON/ZOO  M/BLX.BLY,XLEN,ZFACTN,XMAX.YMAX.YUNIT 
COMMONIEDSMKGrtSGERASEJ>SGERASE(4002)ASGERASE(A00) 

ISKP-0 

C 

C  ORAWS  A  GREEN  LINE  FOR  EACH  SMOKE  CURTAIN  LOCATION. 

C  ANO  SAVES  THIS  LINE  FOR  LATER  ERASING. 

C 

CALL  FACTOR  (ZFACT) 

GXUNIT.11.0/NX*SCFACT 

GYUNIT-8.VNY 

XU  N IT-GXU  N  IT/SCALE 

YUNIT-GYUNIT/SCAUE 

ISGERASE-0 

C  CURTAIN  LENGTH  IS  ISO  FEET.  BUT  PLOTTED  AT  TWICE  SCALE  (LIKE 
C  WITH  VEHICLES  SO  THEY  CAN  BE  SEEN  BETTER) 
WCURT-ISO.’JOMflQOO.Ttt 
PH3.141SS 

CALL  NEWPEN  (10) 

0010QUSMK1.ISMK2 
C  CENTER  POINT  OF  CURTAIN 
XC-PSMK(I.1) 

YC-PSMItilii 

C  CONVERT  ORIENTATION  AZMUTH  TO  AN  ANGLE 
CALL  FDWJTASMK(I,2LAZ)N) 

C  FIND  STARTING  POINT  OF  CURTAIN 
X1+XC+COS(  AZIN/100.  *PI)*WCURT/2. 

Y1-YC+8IN<AZiN/iao.  "PI)  Y/CURT/2. 


ENDIG  POINT 

X2-XOCOS(AZW/1iO.*PI)*WCURT/2 

Y2.YC^SIN|AZlN/180.*PI)<WCURT/2. 

DRAW  THIS  LINE 

IF  (XLEN.GT.0.)  CALL  FACTOR  (ZFACTN) 

XS-XI-XUNIT 

YS»Y1*YUNIT 

ISXIP-0 

IF  (XLEN.GT.0.)  CALL  ZOOMIT  (XS.YS.SMP) 
IF  (ISKIPEai)  GO  TO  100 


IF  ISKIPEai)  GO  TC 
CALL  PLOT  (XS.YS.3) 
XTJCTXUNft 


100 


YT.Y2*YUNIT 
IF  (XLEN.GT.0.)  CALL  ZOOMIT  (XT.YT.ISKIP) 
IF  (ISKIP  Eai)  GO  TO  100 
DRAW  LINE 
CAU  PLOT  (XT.YT.2) 
ISGERASE.ISGERASE.1 
PSGERAS£(lSGERA3E.1WPSMK(t.1) 
PSGERASE(ISGERASEiUPSMKlli) 
ASGERASE(ISGERASE)-TASMK<)^) 
CONTINUE 
RETURN 
END 


A  KMX. 


SUBROUTINE  ERSMKCURT 

ERASES  AU  PREVIOUSLY  DRAWN  SMOKE  GRENAOE  CURTAINS 
COMMON/PUFFS/IWSPEED.IWOIR.IOUSTEXPUFF,OTPUFF.TENOPUFF, 
A  IOUST1.IDUST2.NDUST.IENG1.IENG2.NENG.ISMK1.ISMK2JNSMK. 

A  IART1,IART2.NART.PTDUST(2400,3).PTENG(2400.3).PSMK(400.2), 

A  TASMKNCZ,l,£) .PART (90 ,2).TAART(9tt2) .NOUS TMX.NENGMJLNSMKI 

COMMON/GRIO/NX,NY.SCALE.SCFACT,PRFACT,ZFACT 
COMMON/ZOO  M/BLXELY,XLEN.ZFACTN,XMAX,YMAX,YUNIT 
COMMON/E  DSMKG/ISGERASE,PSGERASE(400,2).ASG£RASE(400| 

ISKIP-0 

ORAWS  A  BLACK  LINE  FOR  EACH  SMOKE  CURTAIN  LOCATION. 


CAU  FACTOR  (ZFACT) 

GXUNIT.1 1 ,0/NX'SCFACT 
GYUNIT-S.S/NY 
XUNIT-GXUNIT/SCALE 
YUNIT-GYUNIT/SCALE 

00  100  L1.ISG  ERASE 

C  CURTAIN  LENGTH  IS  ISO  FEET.  BUT  PLOTTED  AT  TWICE  SCALE  (LIKE 
C  WITH  VEHICLES  SO  THEY  CAN  BE  SEEN  BETTER) 
WCURT-1Sa*J04A/1000.*2X> 

PU3. 14190 
CALL  NEWPEN  m 
C  CENTER  POINT  OF  CURTAIN 
XC-PSGERASE(LI) 

YC.PSGERASE(li) 

C  CONVERT  ORIENTATION  AZIMUTH  TO  AN  ANGLE 
CALL  FOIR  (ASGERASE(t)  AZIN) 

C  FIND  STARTING  POINT  OF  CURTAIN 
X1-XC+COS(AZIN/180.*PI)*WCURT/2. 
Y).YC+SIN(AZIN/180.*PI)<WCURT/2. 

C  ENDING  POINT 

X2.XCKX>S(AZ1N/ieO.*PI)*WCURT*. 

Y2-YOSIN(AZ1N/180.*PI)  "CUHT/2. 

C  DRAW  THIS  LINE 

IF  (XLEN.GT.0.)  CALL  FACTOR  (ZFACTN) 

XS-XrxUNIT 

YS-Y1*YUNIT 

ISKIP-0 

IF  (XLEN.GT.0.)  CALL  ZOOMIT  (XS.VS.ISKIP) 
r  iSKip.Eaii  go  to  ioo 

CAa  PLOT  (XS.YS.3) 

XT.X2*xuNrr 

YT+Y2*YUNIT 

IF  (XLEN.GT.0.)  CAU  ZOOMIT  (XT.YT.ISKIP) 

IF  (ISKIPEai)  GO  TO  100 
C  DRAW  LINE 

CAU  PLOT  (XT.YT2) 

100  CONTINUE 
RETURN 
END 


SUBROUTINE  DM  ASK  (XS.YS.RMAX1  RMAX2.RMAX3) 

C  FINO  ANGLE  AND  RANGE  TO  AU  OUST  PUFFS  WITHIN  MAX  RANGE  OF 
C  THIS  SYSTEM  SO  THAT  MASKING  CAN  BE  EVALUATED 
C 

COMMON/M  ASKD/DMSK(240a,3),NDMSK 

COMMONlPUFFSrtWSPEEO.IWDIR.IOUST.EXPUFFOTPUFF.TENDPUFF. 
8  ©UST1,IDUST2,N0UST,IENG1,IENG2,NENG.ISUK1.ISMK2.NSMK, 

8  IART1,IART2,NART.PTDUST(2400,3),PTENG(2400.3),PSMK(4002). 

8  TASMKj400^)PART(B02).TAART(90jgJSDUSTMXNENGMXJ^MKMX. 


C  XS.YS  -  SHOOTER  COORDINATES 
C  RM AX  12,3  -  MAX  RANGE  OF  SYSTEM  WEAPONS 

C  DMSK(I.I)  -  X  COORD  OF  EACH  DUST  PUFF 
C  OMSK  12)  -  Y  COORD  OF  EACH  DUST  PUFF 
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c 

c 

c 


cc 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

cc 

c 


c 

c 

c 

c 

c 

c 


c 

c 

c 


0MSK(L3)  -  RADIUS  FOR  EACH  OUST  PUFF 

NOMSK  -  NUMBER  OF  OUST  PUFFS  WITHIN  MAX  RANGE 

PU3.141M 

NOMSIUO 

FWO^T.GT.fflTHEN 

CVCLE  THROUGH  AU  OUST  PUFFS  TO  FILL  MASKING  ARRAY 
RMAXXtO 

IF  (RMAX1.GTRMAXX)  RMAXX-RMAX1 
IF  (RMAX2.GT.RMAXX)  RMAXX.RMAX2 
IF  (RMAX3.GT.RMAXX1  RMAXX-RMAX2 
RMAXX-RMAXX/IOOO  6 
0O20W0UST1.IDUST2 
XD-PTOUSTILI) 

YO-PTDU3T(L2) 

RAOIUS-PTDUST(L3r£XPUFF 
RANGE-l(XD-XS)"2HYD-YS)~a".5 
IF  (mANGE-RAOlUSLGTJUiuuoq  GO  TO  20 
NOUSIWIOMSK-1 
FMO  ANGLE  TO  THIS  OUST  PUFF 
TOP-YD-YS 
BOT-XD-XS 

IF  (BOT^QTLO)  BOT-BOT-.OOI 
0tfUATAN(ASS(TOPYABS<8OT»*IS0JPI 
IF  (BOTJ.Ta5)THEN 

F  (TOP.lT.asr.  oswm-iso. 

F  (TOP.GTXLfc  OW-1SO.-OIR 

ELSE 

F  (TOPXT.OJJ)  on-m-on 
ENOS* 

CONVERT  THIS  COORDINATE  SYSTEM  OIRECTION  TO  AN  AZIMUTH 
CALL  FAZ (DIRAZIN) 

DMSK(N0MSK.1>XD 

DMSK(NOMStL»-YD 

CMSK{NOMSIC3j-RADt4t8 

CONTINUE 

ENOF 

RETURN 

END 

SUBROUTINE  OSEE  (XS.Y3JCT.YTAZ1MUTH.J3KIR 
EVALUATES  OUST  MASKING  BETWEEN  SHOOTER  AND  TARGET 

XS. YS  SHOOTER  REAL  WORLD  COORDINATES 

XT. YT  TARGET  REAL  WORLD  COORDINATES 
AZIN  AZIMUTH  TO  TARGET 

JSKIP  FLAG  TO  SKIP  THIS  TARGET  F  MASKEO  (-0  TO  SKIP) 

COMMONIELEV*CONT(2fc.lELEV! 10000) 

CCMUON/GRK>NX. NY. SCALE.  SCFACT.PRFACT.ZF ACT 
COMMON/MASKQ*OMSKf2400,3LNOMSK 

DOUBLE  PRECISION  ANGLE  ANGLEI 

PI-3.14160 


WRITE  (to.  *2  -NOMSK  '.NOMSK 
F  (NOMSK.  GT.O)  THEN 


FMO  SHOOTER  AND  TARGET  GRID  COORDINATES 
TAKE  NEAREST  INTEGER.  SINCE  GRIOS  ARE  LOCATED 
CENTER  TO  CENTER  ABOUT  THE  SCALE 
«jWK^4jn;YSj"2HXT-XS)--2)“.5 

IYS.NMT  YS 
IXT-NWT  XTfl 
IYT-NMT  YT/SCALE) 

F  (1X34X1)  IXS-1 
F  IXTXT.1)  IXT-1 
F  (lYSXT.I)  IYS-1 
F  IYTXT.1)  IYT.1 
F  IXS.QT.NIQ  IXS-NX 
F  IXT.GTNX  IXT.NX 
F  IYS.GTXY  IYS-NY 
F  IYT.GT.NY  IYT-NY 
X1-IXS*  SCALE 
X2-IXT- SCALE 
YI.rYS-SCALE 
Y2-IYT- SCALE 

RANGE-((Y2-Y1)"2*(X2-X1)"2)".5 

FMO  SHOOTER  AND  TARGET  ELEVATION 

IS>NY*(IXS-1WIYS 

SELEV-CONT  (lELEV(IS)) 

IT-NY*(IXT.1>IYT 

TELEV-CONT(IELEV(IT)) 

ADO  24)  METER  TO  ELEVATIONS  OF  TARGET  AND  SHOOTER  TO  ACCOUNT 
FOR  VEHICLE  HEIGHT 
SELEV-3ELEV-.002 
TELEV-TELEV-4XJ2 

FMO  ELEVATION  ANGLE  TO  THIS  TARGET 
TOP.TELEV-SELEV 
BOT-RRANGE 
ANGLE -ATAN(TOP/BOT) 

DO200MJOMSK 
WRITE  (10.J  PUFF -I 
F  (JSKFEQ.O)  GO  TO  300 


C  CYCLE  THROUGH  AU  OUST  PUFFS 

C  TO  EVALUATE  OUST  MASKING,  FMO  THE  LEFT  AND  RIGHT  AZIMUTH 
C  BRACKETING  EACH  OUST  PUFF  WITHM  RANGE.  DROP  F  OUT  OF  ANGLE 
RANGE. 


C 

C 

c 

c 


c 

c 


TFSN  FMO  THE  ELEVATION  ANGLE  TO  THE  TOP  OF  THE  OUST  PUFF. 
DROP  PUFF  F  NOT  HIGH  ENOUGH 

EVALUATE  RANGE  TO  OUST  PUFF 
XP-0MSK4L1) 

yp-dmskM 

WRITE  (10.1  -XPYP-.XP.VP 
RADtUS-DM&K(l~ 


RADIUS-DM$K(I,3) 

WRITE  (10,1  RADIUS  'RADIUS 
«>-((Vf-VS)A2.<XP-XSJ~2);-4 


C 

C 

C 


C 

c 


c 

c 


200 


RP< 

WRITE  noil  -PUFF  range  -rp;  target  range  -rrange 
IF  ((RP-RM>US).GT.RRANGE)  GO  TO  200 

EVALUATE  ANGLES  TO  OUST  PUFF 

TOP-YP-Y3 

BOT-XP-XS 

f  rrop.EQ.oaANO.aoTEQ.ao)  jskf-o 
F  (BOT.EQ.O.O)  BOT-8QT-.001 
OIR-ATAN(ABS(TOP)/ABS(BOT))*ia04PI 
IF  (BOT.LT.OO)  THEN 

F  (TOPXT.O.O)  DW-DFU180. 

F  (TOP.GT4LO)  DtfW180.-D« 

ELSE 

F  (TOPXT4LO)  DIR- 360.-0 Ifl 
ENDF 

CONVERT  THIS  COOROMATE  SYSTEM  OIRECTION  TO  AN  AZIMUTH 
CALL  FAZ  (DIRAZIN) 

F  (RADtUSXT.0.030)  RADIUS-0.030 
F  (RP.LTRADIUS)  RP- RADIUS 
OElAZ-ASIN(RA5tuSAP)’1804PI 
AZLFT -AZIN-DELAZ 
AZRGT-AZ1N-DELAZ 
F  ( AZLFT XT.0.0)  AZLFT -AZLFT -360.0 
F  (AZRGT.LT  .0.0)  AZRGT-AZHGT-360.0 
F  (2lFT.GT.3€3.0)  AZLFT-AZLFT-360  0 
F  (AZRGT.GT.380.fc  AZHGT-AZRGT-360.0 
F  (AZLFT.GTAZRGT)  AZRGT-AZRGT-380. 

f  (Azimuth.lt  c.o)  Azimuth-azimuth- 3604} 

F  (AZIMUTH.GT.3S40)  AZIMUTH -AZIMUTH- 360.0 

Write  (io.tazleftazlft;  azriqht  -azrgt:  azimuth  -azimuth 

F  (AZIMUTHXTAZLFT.ORAZIMUTH.GTAZRGT)  GO  TO  200 

EVALUATE  HEIGHT  OF  OUST  PUFF 

FIND  ELEVATION  OF  THE  GROUND  UNDER  THIS  PUFF 

IXP-NINTIXP/SCALE) 

lYP-NWTjYP/SCALE) 

F  (IXPXT.1)  IXP-1 
F  IYPXT.I)  IYP-1 
F  (IXP.GT.NX)  IXP-NX 
F  (IYP.GTRY)  IYP-NY 
PX2-IXP*SCALE 
PY2-IYP*SCALE 

PRANGE-((PY2-Yl)“2*(PX2-X1)~a)~S 

F-NY-(IXP-1)-IYP 

PELEV-CONT(lELEV(F)) 

ADO  TO  THIS  ELEVATION  THE  HEIGHT  OF  THE  PUFF 
MAX  PUFF  HEIGHT  IS  30  METERS  (100  FEET) 

HEIGHT-RAOlUS 

FJpADIUS.GT.0.03q)  HEIGHT-0.030 
PEtEV-PELEV-HEIGHT 
FINO  ELEVATION  ANGLE  TO  THIS  DUST  PUFF 
TOP.PELEV-SEUEV 
BOT.  RANGE 
BOT-RP 

ANGLE  UAT ANITOPIBOT) 

WRITE  (10.1  TARGET  ELEVATION  ANGLE  'ANGLE 
WRITE  10.1  PUFF  ELEVATION  ANGLE  'ANGLEI 
F  (ANgLEI-GT ANGLE)  JSKIP-O 
CONTINUE 

ENOF 


300  RETURN 
END 


SUBROUTINE  ESMASK  (XS. YS.RMAX  1 RMAX2RMAX3) 

FINO  ANGLE  AND  RANGE  TO  AU  ENGME  SMOKE  PUFFS  WITHM 
MAX  RANGE  OF  THIS  SYSTEM  SO  THAT  MASKING  CAN  BE  EVALUATED 

COMMON/M  ASKES/ESMSK(24Cq,3VNESMSK 

COMMONPUFFS/IWSPEED.IWOIR.IDUST^XPUFFRTPUFF.TENDPUFF. 

A  IDUSTl  .IDUST2.NOUST.IENG1 .1ENG2.NENG.ISMK1  .ISMK2.NSMK. 

A  IAflT1,lART2,NAflT.PTDUST(2400,3).PTENG<2400.3I.PSMK(400.2), 

A  TASMKj400,2)  FART(99i).TAART(9ai).NOUSTMXjiENGMX.NSMKUX, 


C 

c 

c 

c 

c 

c 

c 


XS.YS  -  SHOOTER  COORDMATES 
RMAX  1.2,3  -  MAX  RANGE  OF  SYSTEM  WEAPONS 
ESMSK(l.l)  -  X  COORD  OF  EACH  ENGINE  SMOKE  PUFF 
ESMSK  lij  -  Y  COORD  OF  EACH  ENGINE  SMOKE  PUFF 
ESMSKjl,3)  -  RADIUS  FOR  EACH  ENGINE  SMOKE  PUFF 


NESMS 
PI-3.14150 


NUMBER  OF  ENGINE  SMOKE  PUFFS  WITHM  MAX  RANGE 
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cc 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

cc 

c 


c 

c 

c 

c 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 


NESMSIUO 
IE  (NENQ  .QT.Ol  THEN 

CYCLE  THROUGH  ALL  SMOKE  PUFFS  TO  FILL  MASKING  ARRAY 
HMAXX-0 

IF  (RMAX1.GT.RMAXM  RMAXJURMAX1 
F  (RMAX2.QT.RMAXX)  RMAXX-RMAX2 
IF  (RMAX3.QT.RMAXX)  RMAXX-RMAX2 
RMAXX-RMAXX/1000. 

00  20  UIENGI.IENG2 
X0«PTENG(I.11 
YO-PTEI@L2| 

RAOIUS.PTENG(1.3)-EXPUFF 
RANGE-((XD-XS|**2*<Vd-YS)*-2)— .6 

if  »range-ra6us).gt.rma3o()  GO  TO  20 
NESMSK.NESMSK-1 
FINO  ANGLE  TO  THIS  SMOKE  PUFF 
TOP-VO-YS 
BOT-XD-XS 

f  (BOT.EO.O.O)  BOT-BQT+.OOl 
0IR-ATAN(ABS(TOPyAB3(8OT))M802PI 
IF  (BOT-LtOOpTHEN 

IF  (TOP.LT.O.O)  DIR-DIR*180. 

IF  (TOP.GT.0.0)  OIR.iaO.-OlR 

ELSE 

IF  (TOP.LT.OO)  D8U380.-DIR 
ENCHF 

CONVERT  THIS  COORDINATE  SYSTEM  DIRECTION  TO  AN  AZIMUTH 
CALL  FAZ  (DIRAZ1N) 

ESMSKINESMSK.11.IQ 

ESMSK(NESMSK$-YD 

ESMSK{NESMSK.3p)ADIUS 

CONTINUE 

ENOF 

RETURN 

END 

SUBROUTINE  ESSEE  (XS.YS,XT.YT>ZIMUTH.JSKIP) 

EVALUATES  ENGINE  SMOKE  MASKING  BETWEEN  SHOOTER  AND  TARGET 

XS. YS  SHOOTER  REAL  WORLD  COORDINATES 

XT. YT  TARGET  REAL  WORLD  COORDINATES 
AZIN  AZIMUTH  TO  TARGET 

JSKP  FLAG  TO  SKIP  THIS  TARGET  IF  MASKEO  (-0  TO  SKIP) 


EVALUATE  RANGE  TO  SMOKE  PUFF 
XP^SMSKILI) 

YP.ESMSK02) 

f-ESMSK(l.: 


COMMON/GRIQINX.NY.SCALE.SCFACT.PRFACT.ZF  ACT 
COMMONWASKESIESMSK(2400.3),NESMSK 

DOUBLE  PRECISION  ANGLEANGLEI 

PI-3.14160 


RAOIUS-ESMSKII.3) 
RP<TP-YS)~2«(XP-XS)“2)“.8 
IF(fRP-RAOIUS).GT. - 


RANQE-((Y2-Y1)“2.(X2-X1)“2)~.5 

FIND  SHOOTER  AND  TARGET  ELEVATION 

IS.NY*(IXS-1HIYS 

SELEV-CONT(IElEV«(S)J 

rr-NY*(IXT-1>IYT 

TELEV-CONT(IELEV|IT» 

ADO  2.0  METER  TO  ELEVATIONS  OF  TARGET  AND  SHOOTER  TO  ACCOUNT 
FOR  VEHICLE  HEIGHT 
SELEV-SE  LEV-002 
TELEV.TELEV.JXB 

FINO  ELEVATION  ANGLE  TO  THIS  TARGET 
TOP-TELEV-SELEV 
BOT.RRANGE 
ANGLE-AT  AN<TOP/BOT) 

00  200  ULNESMSK 
F  (JSKIP.EQ.0)  GO  TO  300 

CYCLE  THROUGH  ALL  ENGINE  SMOKE  PUFFS 
TO  EVALUATE  MASKING.  FINO  THE  LEFT  AND  RIGHT  AZIMUTH 
BRACKETING  EACH  PUFF  WITHIN  RANGE.  DROP  IF  OUT  OF  ANGLE  RANGE. 
THEN  FINO  THE  ELEVATION  ANGLE  TO  THE  TOP  OF  THE  PUFF. 

OROP  PUFF  IF  NOT  HIGH  ENOUGH 


.RRANGE)  GO  TO  200 

EVALUATE  ANGLES  TO  SMOKE  PUFF 
TOP-YP-YS 
BOT.XP-XS 

IF  (TOP.EQ.O.OANO.BOT.EQ.O.O)  JSKF-0 
f  (BOT.Eao.o)  bot^ot.doi 
0«-ATAN(AflSCrOPyAaS<BOT))Ma02PI 
IF  (8OTi.T.CL0)THEN 

IF  (TOP1T.Q.O)  OFWXR-180. 

IF  TOP.GTUO)  OIR-iaO.-OIR 

ELSE 

F  (TOPXT.O.O)  OFW360.-OH 
ENOF 

CONVERT  THIS  COORDINATE  SYSTEM  DIRECTION  TO  AN  AZIMUTH 
CALL  FAZ  (DSRAZIN) 

F  (RAOIUSXT .0.030)  RADtUS-0.030 
F  (RPXT.RAQIUS)  RP-RADIUS 
0ElAZWLSIN(RA0iUSRP)’ia02PI 
AZLFT-AZIN-OELAZ 
AZRGT-AZ1N-0ELAZ 
F  (AZLFT.LT.0.0)  AZLFT -AZLFT *300.0 
F  (AZRGTXT.0.0)  AZRGT-AZRGT-380.0 
F  (AZLFT  .GT. 360.0)  AZLFT-AZLFT-380.0 
F  AZRGT.GT.360.qi  AZHGT.AZRGT-300.0 
F  (AZLFT.GTAZfidTt  AZRGT-AZRGT.360. 

F  (AZIMUTH.LT.0.01  AZIMUTH* AZIMUTH* 360.0 
F  (AZIMUTKGT  W&Ot  AZIMUTH-AZIMUTH-aeO.O 
F  (AZWUTH.ITAZLFT.ORAZ1MUTH.GTAZRGT)  GO  TO  200 

EVALUATE  HEIGHT  OF  OUST  PUFF 

FMD  ELEVATION  OF  THE  GROUND  UNDER  THIS  PUFF 
IXP-N INT  (XP/SCALE) 

IYP-N  INTfYP/SCALE) 

F  (IXPXT.1)  IXP.1 
F  (lYPXT.lj  IYP-1 
F  (IXP.GTJslX)  IXP-NX 
F  (IYP.GT.NY)  IYP-NY 
PX2-IXP* SCALE 
PY2-IYP-SCALE 

PRANG&jJ(PY2^Y1)“2*(PX2-X1)**2)-.5 
PELEvicQN  l*IEl£  V(IP)  I 

ADO  TO  THIS  ELEVATION  THE  HEIGHT  OF  THE  PUFF 
MAX  PUFF  HEIGHT  IS  X  METERS  (100  FEET) 

HEIGHT-RADIUS 
F  (RAOIUS.GT.0.030)  HEIGHT -0.030 
PEIEV-PELEWHEIGHT 

C  FIND  ELEVATION  ANGLE  TO  THIS  DUST  PUFF 
TOP-PELEV-SELEV 
C  BOT.PRANGE 
BOT.RP 

ANGLE  l-ATAN(TOP/BOT) 

F  (ANGLE I.GT ANGLE)  JSKIP-0 
200  CONTINUE 

ENOF 

300  RETURN 
END 

SUBROUTINE  PKLESS  (KSlOE.tS.rr.RNG.BOflE.TOF.PK) 

C  REDUCES  PK  FOR  WEAPONS  WHICH  CANNOT  RANGE  TO  THE  TARGET 
C  DUE  TO  OUST  OR  SMOKE  OBSCURANTS  ON  THE  LINE  OF  SIGHT 
C 

COMMON/M  OVE/BXYA(200Z)TIXYA(200Z).GSA(200Z).IRSA1200Z). 

A  LtSM  L2M  L3M  L1RM 

COMMONWANELIVER«XYOf200X!).RXYO«00Z).MTYPEB(200).MTYPER(200) 
A  £XYP(2002).RXYP(200Z).ISPbe(200)4SPOR(200) 

DIMENSION  S  10(40)  ARE  A(40) 

CHARACTER-90  L1BF12F,L3FX1RF.L1BM12MX3M.LinM 
DATA  SIG  /0...U..3.4..5..6..7..8..9.1..1.1.1Z.1  .3.19.1.5, 

A  1 .6.1 .7. 1 .8. 1 .92.2 1  Z2Z3Z.4Z.5Z.6Z.7Z.8Z.9J.J.1. 

A  3.23.3.3.4.3.5.3.6,3.7.3.6.3.9 
OATA  AREA  /.5,5396. 5793.fi  1 79„65S4,.601  5,.72S6..758,7881 . 

A  9159..841 3,-8643, -884 9..9032, .9192.  •9332^9452„9564^9641, 

A  .971 3.9772..9621,. 9861, .9693, 99I&,9938.9963.996S,.9974, 

•  AM4  0007  QAAA  nfWI  IWM1A  0007  OOOO  flflfio  OQQO  OQOO 
iVW  l.lnwf  JAM  I 

A  1.000 
PU3.14150 
RANGE-RNG-1000. 


C 

C 


C 

C 

C 

C 

C 


WRITE  (*.*)  (SIG(I),I-1,40) 

WRITE  (*.•)  (AREA(I).I-1.40) 

WRITE  C.yRANGE  BORE  TOF  PKIN' 
WRITE  C.T  RANGE, BORE.TOFPK 

IF  (KSIOE.EO.1J  THEN 
BLUE  SHOOTER  /  RED  TARGET 
SS-REAL(ISPOB(IS)V3eOO.‘  1000. 


40 


oo  o  o  no  non  on  no  ooooooooo  on  on  o  no  noon 


C  DEFINE  UNIT  VECTOR  CONNECTING  SHOOTER  AND  TARGET 

rojA^tga-XT)~2«<YS-YT)"2)“.5 


C 

C 

C 

C 

C 

C 


OY.YS-YT 
UUDX/RMAG 
UJ-OY/RMAG 

FMO  RELATIVE  CROSSING  SPEED  OF  SHOOTER  AND  TARGET 
BY  TAKING  CROSS  PRODUCT  OF  EACH  VEHICLE  VELOCITY  VECTOR 
ONTO  THIS  UNIT  VECTOR  THEN  TAKE  DIFFERENCE  IN  CROSS 
PRODUCTS. 

WRITE  (VISS  ST  AZS  A2T 
WRITE  V.T  SS.STAZS.Arr 
WRITE  r,*)  Ml  UJ1 
WRITE  r.T  UI.UJ 

AS-SSXOSIAZS) 

BS-SS-SINL 
AT-ST*COS 
9T-ST*3W(A 

THE  CROSS  PRODUCT  OF  THESE  VECTOR  QUANTITIES  IS  THE  CROSSING 
SPEED 

SCROSS-AB3((AS*UJ-BSnjl)-(AT*UJ^Tnjl)) 

WRITE  (V)  SCROSS  '.SCHOSS 

FMO  TRUE  ANGULAR  RATE  OF  TARGET 
OMEGAT-SCROSS/RANGE 

FMO  TIME  TO  TARGET  RANGE 
T8-TOF 

TT-RANGE/BORE'TOF 

SINCE  THERMAL  SIGHTS  HAVE  A  RETICLE.  GUNNERS  CAN  USUALLY 
ESTIMATE  TARGET  RANGE  BASED  ON  THE  SIZE  OF  THE  TARGET  WITHIN 
THE  RETICLE  AND  THEN  BRACKET  THE  RANGE.  THIS  WAY  A  BETTER  RANGE 
ESTIMATION  CAN  BE  ENTERED  INTO  THE  FIRE  CONTROL  COMPUTER  OTHER 
THAN  THE  BASIC  BATTLEStGHT  RANGE.  FOR  THIS  REASON.  THE  ENTERED 
BATTLESIGHT  RANGE  IS  ONLY  USED  TO  GET  TIME  OF  FLIGHT  DATA  AT 
THIS  POINT.  THE  GUNNER  ESTIMATES  A  BETTER  BATTLESIGHT  RANGE 
BASED  ON  fHE  FOLLOWING  RANGE  BRACKETS. 

TB-1200JBORETOF 
IF  (RANGE.GE.3500.)  BORE-4000. 

IF  (RANGE.GET750ANO.RANGE.LT.3500.)  BO  RE -3000. 

IF  RANGE.GET250ANO.RANGE.lt  T750.  BO  RE -2500. 

F  RANGE.GE.1750AND.RANGE.LT T2S0.  BORE-2000. 

F  RANGE.GE.  1350 AND. RANG E.LT. 1750.)  BORE-1500. 

F  RANGE.LT.t3S0.)  BORE- 1200. 

TB-BORE/1200.TB 

FMO  DISTANCE  TARGET  HAS  CROSSED  M  THIS  TIME 
OT-TTSCROSS 

FMO  TRUE  LEAD  ANGLE  TO  TARGET  (MILS) 

AT-QT/RANGE" 1000. 

AT-SCROSS/BORE'TB 

APPLY  THE  TRUE  ANGULAR  RATE  TO  THE  BATTLESIGHT  RANGE 
TO  FMD  THE  DISTANCE  THE  FIRE  CONTROL  COMPENSATES. 
OB-RANGE‘OM£GAT*TB 

FMD  LEAD  ANGLE  TO  BATTLESIGHT  TARGET  (MILS) 

AB- 06/BORE ‘1000. 

AB-SCROSS/RANGETB 

FIND  THE  DIFFERENCE  M  THE  LEAD  ANGLES  (MLS) 

OELAIM^BS(AT-AB) 

WRITE  (*,*)  DELAIM  'XCLAIM 

FMO  THE  AIMPOMT  OFFSET  DISTANCE  (METERS) 

DIST-OELAIM 'RANGE/1000. 

DIST-OELAIM'RANGE 

WRITE  ('.*)  "OI3T  'DIST 

ASSUME  WEAPON  PK/H-U3  AND  THEREFORE  HIT  PROBABILITY  IS 


C  EQUAL  TO  PK*  AS  ENTERED  ABOVE 
C  FIND  DEFLECTION  ANO  RANGE  ERROR  STANDARD  DEVIATIONS 
0AREA»PK*\5 
C  RAREA-OAREA 
00  10  U1.30 
PROS  1  -(AREA(IH).S)*LO 
PR082HAREA3H  1Hj.5)‘2.0 

F  (DAREALE>R0B£AN0J3AREA.GE  J»R081)  GO  TO  20 
10  CONTINUE 
20  CONTINUE 

BOT.PROB2-PROB1 

TOP-SIG(U1HSIG(l) 

DS IG-  S  IG(0  ♦<  OAREA-PROB  1 )  TOP/BOT 
RSIG-OSIG 

C  FMO  TARGET  DEFLECTION  LEFT  ANO  RIGHT  LIMITS  M  TERMS 
C  OF  STANDARD  DEVIATIONS  WHEN  HORIZONTAL  AIMPOMT  ERROR  IS  MCLUDED 
C  ASSUME  TARGET  IS  THREE  BY  THICE  METERS  SQUARE 
C  THEREFORE  FIND  ADO! TONAL  DEFLECTION  ERROR  M  TERMS  OF  A  TARGET 

C  WIDTH  STANDARD  DEVIATION 
CHST-ASSfOIST/I.S) 

BLFT— DSIG-OIST 
BRGT.DSIGOIST 
SLFT-ABSlBLFti 
SRGT-ABS(BRGT) 

J-1 

K-t 

C  FIND  PROBABLITIES  ASSOCIATED  WITH  THESE  SIGMA  BOUNDARIES 
DO  X  1-1.39 

F  (SLFTXE.SIG(k1)JU®5LFT.GE.SIG(l))  THEN 

A2-AREA(l)-0.5 

J-l 

ENOF 

F  (SRGT.LE.SK3(N1)ANO.SRGT.GE.SIQ(0)  THEN 
A1-AREA(I)4.S 
K-l 
ENDF 

30  CONTINUE 


TOP/BOT 

TOP-ARE/UK.  1  )-AREA(K) 

BOT-SIGfK-IJ-SIGIK) 

A1-AU(SRGT-SIG!k))'TOP/BOT 

F  (SLFT.GE.SIG(40))  A2-0.5 
F  (SRGT.GE.SIG(40))  A1-0.5 

F  (BRGT.GE.0.0)  THEN 
DPROB-AWA2 
ELSE 

DPROB-A2-A1 

ENDF 

C  VERTICAL  AIM  POINT  ERROR  BASED  ON  TIME  OF  FLIGHT  TO  TRUE 

C  RANGE  WHEN  AIMING  AT  BATTLESIGHT  RANGE 
G-9.607 

C  FMD  MUZZLE  VELOCITY  (M/S) 

C  VO-BORE/TOF 
V0-8ORE/T6 

C  FIND  SUPER  ELEVATION  ANGLE  TO  TARGET  CENTER  AT  BATTLESIGHT 
C  RANGE 

SE-0.5'ASM(BORE/V0~2*G) 

SE1-SET80JPI 

C  WRITE  (V)  SUPER  ELEVATION  V.SE1 

C  FMO  HEIGHT  ABOVE  OR  BELOW  TARGET  CENTER  AT  TRUE  TARGET  RANGE 
HEIGHT— O2.'TT*2*V0'SM(SE)'TT 

C  WRITE  (*,*)  HEIGHT  '.HEIGHT 

C  EVALUATE  NEW  RANGE  ERROR  PROBABLTIES 

C  FMO  TARGET  RANGE  TOP  ANO  BOTTOM  LIMITS  M  TERMS 
C  OF  STANDARD  DEVIATIONS  WHEN  THE  VERTICAL  AIMPOINT  ERROR  IS  MCLUDED 
C  ASSUME  TARGET  IS  THREE  BY  THREE  METERS  SQUARE 
VERR-ABS(HEIGHT/1.S) 

BTOP-RSIG-VERR 
BBOT— RSIG-VERR 

C  FMO  THESE  BOUNDARIES  M  TERMS  OF  STANDARD  DEVIATIONS 
STOP.A8S(BTOP) 

SBOT-ABS(BBOT) 

J-1 

K-1 

C  FIND  PROBASLITES  ASSOCIATED  WITH  THESE  SIGMA  BOUNDARIES 
DO  40  1-1,39 

F  (STOP.LE.SIG(kl)ANO.STOP.GE.SIG(l))  THEN 
A1-AREA(l)-0.5 

ENDF 

F  (SBOT.LE.SIQ(U1)JLNO.SBOT.QE.SIG(I))  THEN 

A2-AREA(l)-0.5 

K-l 
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ENO* 

CONTINUE 


S?if-SJrolts(a<Jii'TOP«OT 

T0P-AREAIK*1):AREA<K) 

BOT-SIGfl<«»-§IG<K) 

A2-A2*<sfoT*IG<K))*TOPlBOT 

IF  (STOP.QE.SOMO))  A  1-0.5 

r  (saoT.QE.sio(4oi!  nwu 

IF  (STOP.QEAO)  THEN 
RPHOB-AUA2 
ELSE 

Rpnoe-Aa-Ai 

ENO* 

CALCULATE  NEW  PKBASEO  ON  BATOESK3HT  RANGE  ERROR 
PK-OPROSWROB 

WRITE  (V)  *PKOUT  -PIC  DP  ROB  \OPROB,'  RPR  08  -.RPR08 

RETURN 

ENO 


SUBROUTINE  LIVINQ 

FOR  AKXNQ  IN  THE  DECISION  PROCESS  WHETHER  ONE  WOULD 
SHOOT  OR  HOLD  FIRE  EVEN  WITH  A  VERY  LOW  PK.  HAVING  A 
ROUGH  IDEA  OF  HOW  MANY  THREAT  TARGETS  EXIST  COMPARED  TO 
HOW  MANY  FRIENOLY  VEHICLES  EXIST  IS  A  REASONABLE  FACTOR 
TO  CONSIDER 


C 

C 

C 

C 

C 

C 


C 

C 

C 

C 


10 

SO 

C 

C 

c 

c 

c 


CHARACTER**)  L1BFX2FA3F.L1RF.L1BM.L2M.L3MA.1RM 
CHARACTER*  IS  BHIER.RHIER.IHIER 
CHARACTER *24  B UNIT, RUN  IT 

NBA-0 
NRA-0 
DO  10  MSB 

{IBSYS(I.2).EQ1.AND.I8SYS(L1)-LE.10)  NBA-NBA+I 

(«SYS(U)£a  I  jWD.«SYS<U).LE.  10)  NRA-NRA-f 

EVALUATE  THREAT  PICTURE  BASED  ON  NUMBER  OF  THEM  VERSUS  NUMBER  OF 
YOU  IF  THREAT-1.  ALWAYS  SHOOT;  IF  THREAT-0.  CONSIDER  PK  AND 
AMMUNITION  FACTORS. 

BTHREAT-1 

RTHREAT-1 

RETURN 

ENO 

SUBROUTINE  GRMASK  (XS.YSPM AX1  ,RM AX2.RM AX3) 

FIND  ANGLE  AND  RANGE  TO  ALL  SMOKE  GRENADE  CURTAINS  WITHIN 
MAX  RANGE  OF  THIS  SYSTEM  SO  THAT  MASKING  CAN  BE  EVALUATED 

COMMON/M  A3KGR/GRMSK(400.3).NGRMSK 

COMMON/PUFFS/IWSPEED.IWDIR.IDUST.EXPUFF.DTPUFF.TENOPUFF, 

A  UUST1.IOUST2.NOUST.IENG1.IENG2.NENG.ISMK1.ISMK2.NSMK. 


A  IART1,IART2.NART,PTDUST(2400, 3), PTE NG( 2400.3)  ,PSMK(400,2), 
A  T^»,SW4ee2)PART(9*2).TAART(992).NDUSTMXNENGMX.NSMI 


C 

C 

C 

C 

C 

C 

C 


NSMKMX. 


XS.YS  -  SHOOTER  COORDINATES 

RMAX1.2.3  -  MAX  RANGE  OF  SYSTEM  WEAPONS 

GRMSKII.1)  -  X  COORD  OF  EACH  CURTAIN  CENTER 

GRMSK  I2)-  YCOORO  OF  EACH  CURTAIN  CENTER 

GRMSK0.3)  -  ORIENTATION  ANGLE  (CARTESIAN)  OF  CURTAIN 

NGRMSK  -  NUMBER  OF  SMOKE  GRENADE  CURTAINS  WITHIN  MAX  RANGE 

PI-3.14150 
NGRMSKM) 


IF  (NSMK.GT.O)  THEN 
CYCLE  THROUGH  ALI 


RMAXX-RMAX1 

RMAXX-RMAX2 

RMAXX-RMAX2 


C'  _ 

RMAXX-0 

IF  (RMAX1.GTPMAXX 
IF  (RMAX2.GTPMAXX 
IF  (RM  AX3.QT  RM  AXX 
RMAXX-RMAXX/1000. 

00  20  UISMK1.ISMK2 
XD-PSMK(I,1) 

YO-PSMK(l, 

RANGE-UXD-; 
f  (RANGE.GT.RMAXX) 
NGRMSK.NGRMSK-1 
CAU  FOIR  (TASMK(IJ),GRMSK(I.3)) 


ALL  SMOKE  PUFFS  TO  Fla  MASKING  ARRAY 


4WL1I 

XlijOr*2«{YO-YS)*T)**.5 
JE.OT.hMAXX)  GO  TO  20 


C 

C 

C 

C 

C 

C 

C 


c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 


GRMSK(NGRMSK.1)-XD 
GRMSKfNGRMSk  2$.  VO 
CONTINUE 
END* 

RETURN 

ENO 

SUBROUTINE  GRSEE  (XS.YS JtT.YT JLZWUTH JSK55 

EVALUATES  ENGINE  SMOKE  MASKING  BETWEEN  SHOOTER  ANO  TARGET 

XS. Y8  SHOOTER  REAL  WORLD  COOROWATES 

XT. YT  TARGET  REAL  WORLO  COORDINATES 
AZIN  AZIMUTH  TO  TARGET 

JSKIP  FLAG  TO  SKIP  THIS  TARGET  IF  MASKED  (-0  TO  SWP) 

COMMONIELEVA/CONT(20).EL£Y(iaOOO) 
COMMONIGRIOMXX<Y.SCALE^CFACT>RFACT2FACT 
COMMON/M  ASKGFVGRMSK(400,3),NGRMSK 

DOUBLE  PRECISION  ANGLEXINGLEI 

PI-3. 14150 

IF  (NGRMSK.GT.OITHEN 
CALL  FDIR  (AZIMUTH.DIRT) 

WCURT-1Sa*J048(1000. 

FIND  SHOOTER  ANO  TARGET  GRID  COORDINATES 
TAKE  NEAREST  INTEGER  SINCE  GRIDS  ARE  LOCATED 
CENTER  TO  CENTER  ABOUT  THE  SCALE. 
RRANGE.((YT-YS)“2*(XT-X3)“2)"A 
ixs-nintIxsiscAle) 


IF  (IXTXT.1)  IXT-1 
IF  IIYSXT.lj  IYS-1 
*  IYTXT.1)  IYT.1 
IF  IXS.QT.NX)  IXS-NX 
IF  IXT.GT.NX  IXT-NX 
IF  IYS.GT.NY  IYS-NY 
IF  IYT.GTWY  IYT-NY 
XI -IXS  "SCALE 
X2-IXTSCALE 
Y1-IYS*SCALE 
Y2-IYT*8CALE 

RANGE-((Y2-Y  1)“2*<X2-X1)“2)“S 

FIND  SHOOTER  AND  TARGET  ELEVATION 

iS^Y*(IXS-1UIYS 

SELEV-CONT(IELE¥{ffi)) 

IT-NYYIXT-IVIYT 

TELEV-CONT(IELEV(m) 

ADO  2.0  METER  TO  ELEVATIONS  OF  TARGET  ANO  SHOOTER  TO  ACCOUNT 
FOR  VEHICLE  HEIGHT 
SELEV-SELEV..002 
TELEV-TELEV+.002 

FIND  ELEVATION  ANGLE  TO  THIS  TARGET 
T0P-TELEV-8ELEV 
BOT-R  RANGE 
ANGL£-ATAN(TOP/BOT) 

DO  200  WLNGRMSK 

IF  (JSKIP.EQ.0)  GO  TO  300 

CYCLE  THROUGH  AU  SHOKE  GRENADE  CURTAINS 
TO  EVALUATE  MASKING.  FIND  THE  LEFT  ANO  RIGHT  AZMUTH 
BRACKETING  EACH  CURTAIN  WITHIN  RANGE.  OROP  IF  CUT  OF  ANGLE  RANGE. 
THEN  FIND  THE  ELEVATION  ANGLE  TO  THE  TOP  OF  THE  CURTAIN. 

DROP  IF  NOT  HIGH  ENOUGH 

EVALUATE  RANGE  TO  CURTAIN 
XP-GRMSK(LI) 

YP-GRMSK  li) 

RP-«YP-YSr2*(XP-XSr2r.5 
IF  (RP.GT.RRANGE)  GO  TO  200 

EVALUATE  ANGLES  TO  SMOKE  CURTAIN 

TOP-YP-YS 

BOT-XP-XS 

IF  (TOP.  EQ.O.O.AND.BOT.EQ.O.O)  JSK1P-0 
IF  BOT.EO.O.O)  BOT-BOT+.001 
OIR-AT  AN(ABS(TOPyABS(BOT))*180iPI 
IF  (BOT.LT.O.O)  THEN 

IF  (TOP.LT.O.O)  DIR-OtR+100. 

IF  (TOP.GT.O.O)  DIR- 180. -DIR 

ELSE 

IF  (TOPXTDX)  DIR-380.-OIR 
ENDF 

FIND  LEFT  AND  RIGHT  LMIT  ANGLES  OF  THIS  CURTAIN. 

FINO  THE  INCLUOEO  ANGLE  BETWEEN  THE  CURTAIN  ANO  THE  RANGE 
TO  THE  CURTAIN. 

TO  DO  THIS,  TAKE  THE  CROSS  PRODUCT  OF  THE  CURTAIN  VECTOR 
ON  TO  THE  UNIT  VECTOR  DEFINING  THE  RANGE  TO  THE  CURTAIN. 
RUBOT/RP*COS(T 
RJ-TOP/RP’SU 
CI-WCURT/Z'< 


c  unn  uc rnnu  ii 

•cosfpiwieo.'Pi) 

’•SIN(blR/180.*PI) 

/2.-COS(GRMSK(l.3V180.*Pt) 
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ooo  oooo 


K.BHi'’i*lBUNIT(K).ISPOB<K), 

ELSE 

WHITE  r.iao)  K.&  3UNIT(K).ISPOe(K)ELSYS<K). 


CONTINUE 


F  (C20:1LEO.W.ORC2(1:1).EQ.O  THEN 

HEO 

a  ‘'ORMAT|1X.I3.1Xmi*Jtt4.4<l#.1X)) 

WRITE  (V)  "CURRENT  STATUS- 
WRITE  r,y  UNIT  HIERARCHY  ©ENTITY 
A  AMMUNITION 

WRITE  (V) "  SPEEO 

t  WPNfl  <3  *3 

KK-0 

NR1«0 

DO140K.1NR 

F  (tRSYS(K,1).QT.10)  OO  TO  140 
NRl-NRUI 
F  (KSOE.EO.23  THEN 

F  JirsysikjTeo.i)  then 
NSYS-IRSYS(K,1) 

NVYP-NVYR(NSy* 

WRITE  hi®  KLTHIER<K).flLINIT(K).lSPOR<K). 

A  <^OTR(K.IWP).IWP-1.NWP) 

ENOF  * 


F  (KK.EO.2q  THEN 

READ(V) 


KK-0 

ENOF 

ENOF 

CONTINUE 

ENOF 


Jin  LEO.©")  THEN 


WRITE  (V) 

WRITE  (".I  "CUMULATIVE  STATS" 

WRITE 
CALL  UVW3 

A0SS8-NB1-NBA 

lOSSJVNRI-NRA 

BLER-O. 

RLER-O. 

F  (10SSfl.NE.q  BLER^tEALTLOSSBl/REALTLOSSR) 
FOLOSSBNEiq  RLEFUREAULOSS^fSAUILOSSai 

0  FORMAT  (1)UU,l21,2X,IUX.It,7XEl2) 

II  FORMAT  |10(1X,B!V".B.rjl@) 

WRITE  (Y>  "NUMBER  OF  ORIGINAL  SYSTEMS  t  CURRENT  /  LOSSES 
ALEJC 
WRITE  r.l 
WRITE  ("rBLUE" 

WRfTE  (*.200»  "BLUE'NSI  NBA.X0SS8.BLER 

WRITE  M 
YKRfTE  rVREO" 

WRITE  <\20q  "RED  "JYRt  NRA.ILOSSaflL£R 
WRITE  r.n 

WRITE  M  "BY  SYSTEM  NUMBER" 

WRITE  (*,T 
WRITE  M  "SLUE" 

WRITE  M  "ORIGINAL  I  CURRENT  /  LOSSES 


r^Oq  SLUE"N81  NBA.X0SS8.BLER 


)  "BY  SYSTEM  NUMBER" 


A  MILB(10.3),MILR<lO,3) 


)ACQR(10,&).SRCH8(1 


CHARACTER  "90  L1BFL2F.L3FL1RFi.1BML2ML3M.L1RM 
CHARACTER"!*  BHFR.RHFRIHIER 


CHARACTER-24  BUNIT.RUNIT 
CHARACTER'S  BFNAMEJrFNAK 

00  1 1.1,10 


OO  10  WINS 
NTYPE-BSYSILO 
F  (NTYPE.GTiq  ( 


F  (NTYPE.GT.tqi  QO  TO  10 
IBTINTYPEJ-BTINTYPEUI 
F  JJBSYsjLgEO.I)  IBA(NTYPE).IBA(NTYPE)*1 


ITYPE)-IRA(NTYPE).1 


DO20U1.NR 

NTYPE-W8YSHL1) 

F  (NTYPE.GT.  10)  GO  TO  20 
IRT(NTYPE).IRT(NTYPE)*1 
F  (MSYS(l2I.Eai)  IRAfrlTY 
20  CONTINUE 

00  30  U1NBF 
30  DELB(l).IBT(l)>BA(t) 

0040  U1.NRF 
40  DELR(I)-IRT(I)-IRA(I) 

RETURN 

ENO 


SUBROUTINE  0X3 IN 

AUTOMATICALLY  STOPS  VEHICLES  ANO  PLACES  THEM  M 
DEFILADE  POSITION 

COMMONX3R  ID/NX, NY. SCALE, SCF  ACT 
COM  MON/ZOOU/SL 
COMMON/FORCE/BH 
»  IBSYS 


10».NWR(10), 


A  L1BM  L2M.L3M.L1RM 

9Q.M^ON'WEAPONS/V8F,NRF,BFNAME(  1P?JFNAME(1 

A 
A 
A 

t  COMMOWUANEUVERBXYQ(20021.RXYO(200EI.MTYPEB<20CT>ITYPER(2001 

A  TCMMR 
A  MOOEF 
A  TTFMBi 
A  TRMFR 


)  "ORIGINAL  I  CURRENT  /  LOSSES 


CHARACTER**  BFNAME.RFNAME 
CHARACTER-90  LINE 
CHARACTER-1*  BHIER.RHER.NCR 
CHARACTER-24  BUNIT.RUNIT 

CHARACTER-90  L1BFL2F.L3FL1RF.L1BML2ML3ML1RM 
CHARACTER-1  C2 

CHARACTER'1  C2O3,C4O5.C«C7C8,C9,C10.BLANK 

KSIOEM) 

WRITE  C.-l 

WRITE  Cl  W  BLUE  Of  RED.  Of  QUIT 


WRITE  (V) 

WRITE  I1.1}  'CURRENT  OEFLAOE  STATUS' 

A  ’oRI  UNIT  H,£fUf,CHV  DCNT1TY 
F  (CaflilLEO.D)  THEN 


1  •  YES 


121 


120 

C 


140 


141 


MT 

KKaO 

DO  1XK.1.N8 

FORMAT  (1X.0.1XJULA24.7X.0) 
FJ»SYS<KJ).E0.1)TH£N 
WRITE  <\121)  IC8HER(K).BUNIT(K).OEFB<K) 

KK-KK-1 

ENOIF 

IF  (KX.EQ.2m  THEN 
READ(V) 

KKaO 

ENOIF 

CONTMUE 

ELSE 

RED 

KKaO 

00  140K-1.NR 

F(«SYSOU)Eai)THEN 

WRITE  r.121)  CRHIER(K).RUNIT{K).IOEFR(K) 

KK-KK-1 

ENOIF 

F  (KK.EO20)  THEN 
READ?.*) 

KKaO 

ENOIF 

CONTMUE 

ENOF 

WRITE  JJ  ENTER  COMMAND  UNIT  (OflELBTS  -1-OUITy 
READT‘ihR-1. 


READ r'ERR-141)  COMMAND 
F  (COMMANO.EO.O)  GOTO  8 
F  (COMMANDED.-!)  GO  TO  10 


142  WRITE  r.TENTER  NUMBER  RANGE  OF  SUBORDINATES  TO  FOLLOW 
WRITE  (*.*)  THIS  ORDER  (AST ART  (END)  (0  0  FOR  NONET 
WRITE  f.T 

READ  f.  .ERR- 142)  NSU81J4SUS2 
F  (NSUB1.LE.0)  THEN 
NSUS1-0 
NSUB2-0 
ENOF 

F  (NSUB2XE.0)  THEN 
NSUB1-0 
N3U82-0 
ENDF 


C 

150 


WRITE  ('.*) 
- C.TTI 


WRITE 

WRITE 


s 


O  OEFLAOE  THESE  VEHICLES  ENTER  1.  ELSE  Cr 


GOTO  180 


SPEED-0.0 
F  (KSIOE.EO.1)  THEN 


200 


ELSE 

«SA(COMMAND.1).INT(SPEED) 

»EFR(COMMAND)-JDEF 

MODE  UR(  COMMAND) -3 

ENOF 

00  200  UNSUB  1.NSUB2 
F  (KSIDE.EQ.1)  THEN 

F  (IBSYS(I^).EQ.I)  THEN 

IBSA{l.1)alNT(SPEED) 

IOEFB(l)-JDEF 

MODEMB(t)-3 

ENOF 

ELSE 

F(IRSYS(l^1.EQ.n  THEN 

nSAIMHNTISPEED) 

OEFR(l)-JDEF 

MOO€MR(IU3 

ENOF 

ENDF 

CONTINUE 

GO  T0 141 


1000  CONTINUE 
RETURN 
ENO 


SUBROUTINE  EMCHARGE 


CHANGES  EM  STORAGE  SYSTEM 

COUMONtM£NSRGY/NBLUE.NEMW.NEMWN<3),EWP(La).EQ<5). 
A  E LSYSf200), MODE E LM200I . TE f20Q , TEIAiaoOjBjTE M(Z)0J2) 

COMMONFORC£/BHeP^JviSR^^umO00ij%iNrT(200L 

A  IBSYSaOOJ).IRSYS(20O2)X1BFX2Fl2FA.IRFmNR 

COMMON5BATTLEmlUE.OTa4E.ITGTB(2002).ITGTR(200J8. 

A  PKTB(200j0^KTR(200^IKILLB(200)JKLLR(200).IAMR^0). 

A  1AM 8(200) 

CHARACTER'!*  BHIER.RHIER.MER 
CHARACTERS  BUNITRUNIT 

CHARACTER  DO  L1BFL2FX3F11RFX1BUA2M13MX1RM 
OOAOOU1.NB 


NSYS.IBSYS(L1) 

F  (NSYSEONBLUE) 


THEN 


F  (BSYS(L2LNE.m  THEN 
TEM(IAIOOEEM(l)).TEM(LMOOEEM(l))*CTIME 

F  (MOOEEMin.EQ^AND.mMEGE.TEfl))  THEN 
ELSYS(l>aELSYS(l)»EG(3)‘DTIME 

GTEG(2))  THEN 


_ J(l)-1 

a?" 

ENOF 

FfMOOEEM(5EQ.1  AN0.EL3YS(I)1EEG(4))  THEN 

apssfcu 

ENOF 

ENDF 

800  CONTMUE 
RETURN 
ENO 


SUBROUTINE  RSIONAT 

READS  SIGNATURE  FLE  MFORMATION 

COMMON/S  IQTURSIR3M  IN  .RSMAX.BOETCT(10. 10)  JCETCT(10. 10). 
A  BWSlGOai0)RWSIG(X.10| 


CHARACTERDO  LME 

203  FORMAT  (ABO) 

803  FORMAT  (uOom 

OPEN  (I.FLE-'SlGNAT.IW) 

READ  (1.303)  LME 
C  WRITE  (*.  503  LME 

reaoiuiSlme 

C  WRITE  (‘.80S  LME 
READJIJI&IWE 
C  WRITE  (*.M3  LME 
READM^STlAF 
C  WRITE  (1503  LINE 
REACH ,303)  LINE 
C  WRITE  C.W3  LINE 
REAO(1,3mTnE 
C  WRITE  C.5<b  LME 
RE  AD  (1  .303)IINE 
C  WRITE  (*5M  LINE 

320  FORMAT  (2F8.g 

820  FORMAT  (1C2F8.0) 

READ  (1.320)  RSMIN.RSMAX 

C  WRITE  (*,520)  RSMIN.RSMAX 
READ  (1,303)  LINE 
C  WRITE  (*,503)  LINE 
READJ1. 303)  LINE 
C  WRITE  (*,503)  LINE 
READ  (1,303)  llNE 
C  WRITE  (1503)  LINE 

321  FORMAT  (10F8.2 

821  FORMAT  (1X.10FL2) 

D0  600U1 10 

READ!  1.321)  (BOETCT MJ-1.10) 

m  oonMje  <BD6T<r'  (W-U1.10) 

READ  (1,303)  LME 
C  WRITE  (*.503  LME 
RE  AO  (1  SALINE 
C  WRITE  (‘.803  LINE 
READ(1,3(SllNE 
C  WRITE  (*.503)  LINE 
DO700U1.10 

READ (1.321)  (ROETCT(U)J-I.IO) 

C  WRITE  (*.521)  (RDETCT  (U)J-1.10> 
700  CONTINUE 
DO  1000  C -12 
READ  (1.303)  LINE 
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oooooooooooo 


OOOl 


MONmjRR£T/AZTB(200)AZTR(200).TRATEB(10),TRATER<  10) 

CHARACTER'S)  Lt8FX2FXaFXinFi.1BM.UMX3U.L1RU 

FIND  ATTACK  AZIMUTH  ON  TARGET  TURRENT  A NO  HUX 

HULL  18  ASSUMED  TO  BE  POINTING  IN  THE  DIRECTION  OF  TRAVEL 
TURRENT  IS  ASSUMED  TO  8E  POINTING  TOWAROS  AN  INTENDED 
TARGET  OR  IE  THIS  TARGET  VEHICLE  IS  NOT  ENGAGING.  THEN  TURRET 
IS  STILL  POINTING  TOWAROS  LAST  TARGET. 

IF  TARGET  VEHICLE  IS  IN  SURVEAXANCE  MODE.  TURRET  IS 
INLINE  WITH  THE  HUX 

IF  (KSOE.EO.1)  THEN 
AZMT.nSAU.2) 

AZS-AZTB?)«1SaO 

Azrr-AZTR(j) 

ELSE 

AZMT.SSAU2) 

AZS-AZTOKHU0.0 

AZTT-AZTB(J) 

ENOIF 

AZEMZS-AZMT 

AZT-AZS-AZTT 

F  (AZRGE.3M.0I  AZH.AZH-360.0 
IF  (AZH.LT.aOI  AZh.AZH.360,0 
IF  (AZT.GE.360.0)AZT.AZT-360.0 
IF  (AZT.LT.0X)  A2T-AZT.36C.0 

IAZtM«NT(AZH) 

IAZT.NINTIAZT) 

IF  (IAZH.GE.360)  IAZH.IAZH-360 
IF  (IAZT.GE.360)  1AZT.IAZT-360 
HNG-NNT(RANG£'  100G) 

FIND  SHOOTER  AZIMUTH  TO  TARGET  RELATIVE  TO  SHOOTER  HULL  FRONT 

F  (K3IOE.EQ.1)  THEN 

AZHS.IBSA(Ka 

AZTS.AZTB(K) 

ELSE 

AZHS-IRSAtKiB 

AZTS-AZTH(K) 

ENOIF 

IF  IAZTSXT.AZHS)  AZTS-AZTS«360.0 
AZOUT.AZTS-AZHS 

IF  (AZOUT.GE.360.0)  AZOUT-AZOUT-360.0 
IF  (AZQUTXT.0.0)  AZOUT.AZOUT. 360.0 

lAZOUT-NINTIAZOUT) 

IF  (IAZOUT.GE.a60)  IAZOUT.IAZOUT-360 

FORMAT  (14K) 

WRITE  (11.11  KTIME.KSIDE.K,KSYS.KWP.IENERGV.IRNGJJSVS. 

A  IFAPSXILL.IAZH.IAZT.IAZOUT 


RETURN 

ENO 


SUBROUTINE  OUTPUT2  (KTIMEJ310E.J.K1X) 

WRITE  OUTPUT  OATA  FOR  POST  PROCESSING  ON  SYSTEM  STATUS  WHEN 
KILLED  OR  AT  ENO  OF  SIMULATION 


KTIME  KILL  TIME 

JSIOE  SYSTEM  SIDE  (1  BLUE.  2  RED) 

J  VEHICLE  NUMBER 

JSY$  SYSTEM  NUMBER 

JSPO  SPEED 

NWP  NUMBER  OF  WEAPONS 

JAM  1-3  REMAINING  AMMUNITION  EACH  WEAPON 

JENERGY  BLUE  EM  GUN  ENERGY  (Mi)  REMAINING 

MOOEF  SYSTEM  FIRE  MODE 

MODEM  SYSTEM  MOVEMENT  MOOE 

JDEF  DEFILADE  (1)  OR  EXPOSED  (0) 

KILL  TARGET  KILLED  FLAG  (1  -  ALIVE.  0  -  KILLED) 

COMMONIMOVE/BXYA(2002).RXYA(20a2),l8SA(200 j),RSA(2002). 
A  L1BMX2M  L3MX1RM 

COMMON/MODESiMOOEMB(200),MOOEMR{200),TCMM8 (200,3), 

A  TCMMR(2004).nMMB(200J).rrMMR(200J).MODEFB(200). 


A  MOOEF 
A  TTFM 


LTRMFB(200).TRMMR<a 


A  TRMFRSociJROESBttOgJRDESRfflW) 

COMMON/BATTI.  E/ITIME.lOTlM£,ITGT&( 200 2). ITGTR  (2002), 
A  PKTB(200,2).PKTR(20O.2),IMXB(2QO}.IK)LLR(2Q0),1AMR(2Q0), 
A  IAM8(200) 

COMMON/DEFLADET 


COMMONISHOTSIEM 
COMMONiEUENERGY 
A  ELSYSQOOI.MOOEE 
COM 

A  SSYS(2002).IRSYS(; 
COMMOwWEAPONS/n 


A  «SYS(200i).IRSYS(2002T.LlBF.L2FX3FX1RFNaNR* 
COMMON/WEAjPONSVn8F,NRF.BFNAME(10).RFNAME(10).NW8<10).NYFI(' 
A  NRW8(102)>IFNilR(10.3).RB(18a.nR(ieO).P1^(18OJ0)i>KR(18O20).  I 
A  NRND6(30).NRNQR(30)JEMAXfl(3q JEMAXR(30).TEMINB(3i)L 
A  TEMINRI3C-; ACaBlia3iJ«TORllfl.S).SRCHBIiaiRCHRH^^W^^ 


CHARACTER  •00  L1BF.L2FX3FX1RFX1BMX3MX3UX1RM 
CHARACTER-16  8HER.RHIEH.MEfl 
CHARACTERS*  BUNITRUNIT 
CHARACTER'S  BFNAMERFNAME 


IF  (JSCE.EQ.1)  THEN 

JSYS»«SYS(J.1) 

iSPo.esA(j.i) 

NWP-NWBIJSYS) 

JAUI.NSHOTBIJ.I) 

F  (NWP.GEX)  JAM2»NSHOTB(J2) 

F  (NWP.EQ.3)  JAM3.NSHOTB(J,3$ 

JENERGY.NINT(ELSYS(J)) 

MOOEF-MOOEFBJJ) 

MODEM-MOOEMB(j) 

iDEF.IDEFB(J) 

ELSE 

JSYS-«SYS(J,1) 

iSPO-IRSAti.l) 

NWP-NWRIJSYS) 
JAM1.NSHdT.mtl 
F  (NWP.GE2)  JAM2.NSHOTRIJ2 
F  (NWP.EQ.3)  JAM3-NSHOTR(.l.3j 
JENERGY-O 
MODEF-MOOEFRJJ) 

MODEM. MOOEMR(J) 
JDEF.IDEFR(J) 

ENOF 

FORMAT  (141*) 

FJJSYS.GT.10)  QO  TO  10 
WRITE  (12.1)  KTIME .JSIDE.JJSYS.J5 
A  MOOEF, MODEM  JDEF. Kl 


10  CONTINUE 
RETURN 
ENO 


.JSIOE  JJSYS.  JSPO, NWP  JAM  1JAM2J  AM  3J  ENERGY. 
MODEM  JDEF.KILL 


SUBROUTINE  WEND 

WRITES  FINAL  STATUS  OF  VEHICLES  WHICH  SURVIVED 

COMMON/FORCE/BHIER(200).RHI£R(200)BUNfT(200),RUN(T(200). 
A  IBSYS(2002LRSYS(2002).L1BF,L2FX3F.L1RF.NB.NR 
COMMON/8ATTLE/ITIUE.IOTIME.ITGTB(200.2).ITGTRf200,2). 

A  PKTB(200,2).PKTR(200.2),lKKXB(200).lKttXR(200),lAMR(200), 

A  1AM 8(200) 

CHARACTER-16  8HER.RMER.MER 
CHARACTERS*  BUNITRUNIT 

CHARACTER  SO  L1BF.L2FX3FX1RFX1BMX2MX3MX1RM 
DO  100  J-1.NB 


100  CONTINUI 


£0.1)  CALL  OUTPUT2  (ITIME.1  J.1) 


00  200  J-1.NR 

oF  (mSYS^  EQ.D  CALL  OUTPUTS  (ITIME.2.J,  1 ) 


SUBROUTINE  TURAZ  (KSIDE.KJ  AZIMUTH) 

SETS  TURRET  AZIMUTH  TO  CURRENT  TARGET  AZIMUTH 

COMMON(MOV&SXYA(2002).RXYA(200JD,IBSA(a»>S).nSA(200S). 
A  L1BM.UM.L3M.L1RM 

CHARACTER  SO  UBF.UFX3F.L1RF.L1BMX2MX3MX1RM 
PU3.141S0 


F  (KSI0E.EQ.1)  THEN 
XS-BXYA(K.1) 
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OOOOOO  3  •  K  -*o  o  oooo 


XT.RXVAIJ.1) 

rrMCfHiji 

else 

X*JWYA<K,1) 


ysjixya 

XT.BXYA 


f-BXYAZXI) 

YT-BXYA(J,2) 

ENOF 

TOP-VT-YS 

BOT.XT-XS 

F  (BOTEO.an  BOT-BOT-.OOI 
Ol(WATAN<AM<TOPVABa<BOT))‘1«OJPI 
F  (BOTxr5^iTH6N 

F  (TOPXTAOI  DWUOfWiaa 

f  (rop.QTxji)  otfuiaa-ow 

ELSE 

F  (TOPXT.OO)  OWUSta-OM 
ENOF 

CALL  FAZ  (OFLAZIMUTH) 


RETURN 

END 


SUBROUTINE  WMOOES 

WRITES  MODE  TIMES  FOR  EACH  SIXTY  CYCLE  PERIOD  ONLY 
FOR  BLUE  SYSTEM  »1 


D.TTMMB, _  „ _ „ 

6.KE  'Mb0).K^WR<a0O).TCFaB<200.»).Tt 
^^^MB{200LTRMFB(a00).TRMMRgWL 

_  _  j^rtfig.i'reTBimai.sTSTRsaoojs, 

A  PKTB(200,2),PKTFt<200.25,lKtLB(200).lKLLR(200),lAMR(200), 

*  l*MBt2tS)MMON^MENEnaY/NBLUE.NEMWJ«MY<N(3),EWP(3i).EQ(5), 

» e^s<:cSi!5SS«sSS^Ti^i^!f“^Tre*s^^ 

CHARACTER-16  BHIER.HHtR.HER 
CHARACTER'S*  BUNITRUNIT 

CHARACTER-BO  LIBFX2FX3FX1RFX1BM.1 2MX3MX1RM 


FORMAT 


C^-60-CT»*E 
DO  100K-1.NB 

v 


OO  SO  MM.14 

I  WRITE  (13.11  ITIME.IOELTJCMMJIINT(TCMMB(X.MM}) 

DO  00  MEM- 1,2 

1  WRITE(io’7i  jJ^E.K5£LTJCMEM/4WT(TEM(K.MEM)) 

I  WRITE  (W)  ITIME. OELT.K.MF/IINT(TCFMB(KAIF)) 

ENGINE  MOKE  DUTY  CYCLE  TIME 

WRITE  (13.1)  ITIME.IOELT.K.O.NINT(TESMK(K)) 
ENOF 
ENOF 

10  CONTINUE 

RETURN 

ENO 


SUBROUTINE  WOTHERS  (BACEL) 

WRITES  OTHER  OUTPUTS  FOR  BLUE  EM  VEHICLE  *1  EACH  TIME 
STEP  _  VEHICLE  SPEED.  ACCELERATION.  EM  ENERGY 

FOR  BLUE  SYSTEM  «1 

COMMONIFORC£/BHJER(200),RHIER(200).BUNIT(200).RUNIT(200). 
A  IBSYS(2O0^).IRSYS«O0i),L1BF.UF,L3F.L1RFNa,NR 

COMMONlBAmE/ITIME.IDTIME.ITG-rai200i).ITGTR(200i), 

A  PKTB(200,2)<PKTn(200.2).JKILLB(200).IKIXR(200),l4MR(200). 

A  IAMBOQO) 

COMMCMEMENERGY/N8lUEJIEMW.N£MWN(3),EWP(3i).EG<5). 
A  ELSYS(20^.MOp£EMj200^rE(200),TEM(200,251TTEM(2<Xj,2)_ _ 


I  MOMMA 


A  iXYP(20a2I.RXYP(200J).8PDB<aX)),l 

COMMON/»toVE/BXYA(2GO,2).RXYI 
A  L1BMX2M  L3M  L1RM 

CQMMONIACELIACELB<«0S)AtCELR(10,5).GRADEB(200).GRADQT(200) 


lJlXYOgb0a.MTYPEBg00).MTYPERC00) 
I.IBSA<200.2),RSA(200.2), 


DMENSION  BACEM200) 

CHARACTER-16  3HIER.RHERHER 

CHARACTER'S*  BUNITRUNIT 

CHARACTER-BO  L1BFX2FX3FX1RFHBM.LaAX3M.L1RM 


FORMAT 


d5hIok.i.nb 

F  (iaSYSfKja.EQ.1)  THEN 
KSYS.IBSYS(K.1) 


F  (KSYSEQ.1) 

A  WRITE  (14.1)  ITBIE. 


_  fTE  (14.1)  n*A*EJ0TIME>T^P08(KLNINT(BACEMIQ)>iFIT(£LSY3(IQ) 
ENOF 

100  CONTINUE 

return 

ENO 


SUBROUTINE  REAOCOOK 

C  READS  VEHICLE  BURNING  PROBABAJTY  TABLE  ANO  INITIALIZES  ARRAY 

CQMMON£OOKERSMCOOKJ(YCOOK(400.2XPBURNB(10).PBURNR(K)). 

A  KBURN8(SQ0).KBURNR(20O) 

CHARACTERS  LINE 

NCOQK-O 
OO  10  HI. 400 
XYCOOKIL1I-1. 

10  XYCOOK(L2)-1. 

0011  U1.200 
KBURNBflM 

11  KBURNR(IH> 

303  FORMAT  (ABO* 

503  FORMAT  ilXXW) 

OPEN  (1.Fli.-COOKERS.»0 
READ  (L303HNE 
C  WRITE  I-.S03)  LME 


^%LJNE 


503)  LME 


C  WffllT  _ 

READ  11.333)  LME 
C  WRITE  (-.503)  LME 
READ  (UM)  LME 
C  WRITE  (*S(X>  LINE 

313  FORM  aYTiOF 6.2) 

314  FORMAT  (1X.10F8.21 

READ  0,313)  (PBURNB.teK.1.10) 

e  Mwrrfg5|^»BiJHNB(K)x-i.io) 
c  wRfrErsoa  lme 

READ  0j3131  (PBURNRfKLK.1.10) 

C  WRITE  | ri(4)  (PBURNR(K).K- 1.101 

MSI* 

ENO 


SUBROUTINE  COOKS  (KSCE.NUM) 

COMMONCOOKERSMCOOKXYCOOK(4Q(LaJ>BURNB(10LPBURNR(10L 
A  KBURNBfSOOLKBURNROOO) 

COM  MOM/MO  VE/BXYA(2002).RXYA(2(XL2).IBSA(200^).RSA(2002). 

A  LI BM  L2M  L3M  LlRM 

COMMdN/R3RC&BHIER(200)RHCRffi00)BUNITC200).RUNIT(200L 
A  BSYS(200^).IRSYS(2002)X1BFX^X3FXlRFmNR 

CHARACTER-16  BHER.RMER.HIER 

CHARACTERS  BUNITflUNIT 

CHARACTER-80  L1BF.L2FX3FX1RFX1  BMX2MX3MX1RM 

PB-flNOO 

F  (KSOE.EQ.1)  THEN 
NSYS-IBSYSJNUM.1) 

PBURN-PBURNB(NSYS) 

X-BXYAINUM.1) 

Y.BXYIUNUMj2J 
F  (PBUHN.GE7PB)  THEN 
NCOOK-NCOOK.1 
XYCOOK(NCOOK.1l-X 
XYCOOK(NCOOK2)»Y 
KSURNS(NUM)-1 
ENOF 

ase 

NSYS-IRSYSJNUM.il 

PBURN-PSURNR(NSYS) 

X-RXYA(NUM,1) 

Y-RXYAJNUM2) 

F  (PBURN.GE.PB)  THEN 
NCOOK-NCOOK«1 
XYCOOK(NCOOK,1).X 
xycook/ncoom-y 

KBURNR(NUM).1 

ENOF 

ENOF 

RETURN 

BO 


SUBROUTINE  COOKMASK  (XS.YSJWAX1  JB4AX2JTMAX3* 

FIND  ANGLE  ANO  RANGE  TO  ALL  COOKERS  WITHIN  MAX  RANGE  OF 
THIS  SYSTEM  SO  THAT  MASKING  CAN  BE  EVALUATED 
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COM  MON/MASKCOOK/COOKMSKI400, 3). NCOOKMSK 
COMMONCOOKERSlNCCOKJ(YCOOK(4X.2>,P8LIRN8<10M>eURNR<10). 
A  KBURNS<200M<aURNR(20Ct 

XS.Y8  -  SHOOTER  COORDINATES 
RM  AX  1,2.3  -  MAX  RANGE  Of  SYSTEM  WEAPONS 
COOKVSKat)--  X  COORO  OF  EACH  COOKER 
COOK  XSKjli)  ~  YCOORO  OF  EACH  COOKER 
COOKMSK(l,3)  -  RADIOS  FOR  EACH  COOKER  PUFF 
NCOOKMSK  -  NUMBER  OF  COOKERS  WITHIN  MAX  RANGE 

PUS.  141 S0 

NCOOKMSK-O 

IF  (NCOOK.QT.O)  THEN 

CYCLE  THROUGH  ALL  COOKERS  TO  FILL  MASKING  ARRAY 
RMAXX-0 

IF  (RMAX1  .QT.RM AXX)  RMAXX-RMAX1 
IF  RMAX2.GT.RMAXX)  RMAXX-RMAX2 
IF  RMAX3.GT.RMAXX)  RMAXX.RMAX2 
RMAXX-RMAXX/100Q.0 
DO  20  U1.NCOOK 
XD-XYCOOKII.1) 

YO-XYCOOK(U) 

RAOMJS-O  OX 

RANQE-<(XD-XS)-2.(YO-YS1"21".5 
f  ( (RANGE TLAOIUSI.QT.RMAXX)  GO  TO  X 
NOOOKMSK-NCOOKMSK-1 
COOKMSKI  NCOOKMSK.  1UX0 
COOKMSWNCOOKMSKiUYD 
COOKMSK(NCOOKMSK.3)-RAD1US 
D  CONTINUE 
ENOIF 
RETURN 
BO 


SUBROUTINE  COOKSEE  (XS.YS.XT.YTAZIMUTRJSKIP) 

C  EVALUATES  OUST  MASKING  BETWEEN  SHOOTER  AND  TARGET 
C 

COMMON/M  ASKCOOtOCOOKMSK(4X.3).NCOOKMSK 
COMMONAXXXERS/NCOOK.XYCOOK(400.2).PBUflNBOO).PBURNfl(10), 
A  KBURNB(200|.KSURNRC200» 

C  COOKMSKII.1)  --  X  COORD  OF  EACH  COOKER 
C  COOKMSKlli)  -  Y  COORD  OF  EACH  COOKER 
C  COOKMSK(l.3)  -  RADIUS  FOR  EACH  COOKER  PUFF 
C  NCOOKMSK  -  NUMBER  OF  COOKERS  WITHIN  MAX  RANGE 
C 

C  XS.YS  SHOOTER  REAL  WORLD  COORDINATES 
C  XT.YT  TARGET  REAL  WORLD  COORDINATES 
C  AZIN  AZIMUTH  TO  TARGET 

C  JSKIP  FLAG  TO  SKIP  THIS  TARGET  IF  MASKED  H>  TO  SKIP) 

COM  MORE  LEVAXTONTIXI.ELEV (10000) 
COMMONA3RONX.NY.SCALE.SCFACT.PRFACT.ZF  ACT 

DOUBLE  PRECISION  ANGLEANOLEI 


IF  (NCOOKMSK.GT.O)  THEN 

FIND  SHOOTER  AND  TARGET  GRID  COORDINATES 
TAKE  NEAREST  INTEGER.  SINCE  GRIDS  ARE  LOCATED 
CENTER  TO  CENTER  ABOUT  THE  SCALE. 
RRANGE-((YT-YS)"2*(XT-XS)"2)~5 
IXS-NINTO&SCALE) 

IYS.NINTfYS/SCALE) 

IXT-NINTXT/SCALE) 
lYT.NINTjYT/SCALE 
IF  (IXS.LT.1)  IXS-1 
IF  (IXT.LT.1)  IXT-1 
IF  (IYS.LT.1)  IYS-1 
IF  IYT.LT.1)  IYT-1 
IF  (iXS.QTNX)  IXS-NX 
IF  jlXT.GT.NX)  IXT.NX 
IF  (lYS.GT.NY)  IYS.NY 
tf  JlYT.GT.NY)  IYT.NY 
X1.IXS-SCALE 
X2-IXT- SCALE 
Y1-IY  S' SCALE 
Y2-IYT-SCALE 

RANGE-((Y2-Y!)"2«(X2.XI)"2)“5 

FIND  SHOOTER  AND  TARGET  ELEVATION 
IS-NY*(IXS-1)+IYS 
SELEV-CONTllELEV(IS)) 


SELEV-CONT(IELEV(IS)) 

IT.NY*<IXT-1HIYT 

TELEV-CONt(IELEV(IT)l 


ADO  2.0  METER  TO  ELEVATIONS  OF  TARGET  ANO  SHOOTER  TO  ACCOUNT 
FOR  VEHICLE  HEIGHT 
SELEV-3ELEV-.002 
TE  LEV-TELE  V.. 002 

FINO  ELEVATION  ANGLE  TO  THIS  TARGET 
TOP-TELEV-SELEV 
BOT-RRANGE 
ANGLE- AT  AN(TOP/BOT) 

00  200  U1. NCOOKMSK 


IF  (JSKIP.EO.O)  GO  TO  300 
CYCLE  THROUGH  ALL  COOKERS 

TO  EVALUATE  MASKING.  FIND  THE  LEFT  ANO  RIGHT  AZIMUTH 
BRACKETING  EACH  PUFF  WITHIN  RANGE.  DROP  IF  OUT  OF  ANGLE  RANGE. 
THEN  FINO  THE  ELEVATOR  ANGLE  TO  THE  TOP  OF  THE  PUFF. 

OROP  PUFF  IF  NOT  HIGH  ENOUGH 

EVALUATE  RANGE  TO  COOKER  PUFF 
XP-COOKMSKII.1) 

YP-COOKMSKIUi 

WRITE  (10. 3  XP  YP  \  XP.YP 
RAOtUS-COOKMSK(l.3} 

WRITE  (10.*)  'RADIUS  '.RADIUS 
RPJIYP-YS)"2HXP-XS)"2)".S 
WRITE  (10.1  PUFF  RANGE  '.RP.'  TARGET  RANGE  RRANGE 
IF  ((RP-RADtuS).GT.RRANGE)  GO  TO  200 

EVALUATE  ANGLES  TO  COOKER  PUFF 
TOP-YP-YS 
BOT-XP-XS 

IF  (TOP.EQ.O.OANO.BOT.Ea.O.O)  JSKIP-0 
IF  jBOT.EQ.0.0)  BOT-BOT..C01 


DIR-ATAN(ABS(TOPVABS(BOT))‘1UXPI 
IF  (BOT.LT.O.O)  THEN 

IF  (TOP .LT .0.0)  DSUOtfWIM. 
IF  (TOP.GT.OXJ)  OIFU1M.  OIR 


r  (TOPJ.T.OD)  Dn.3BO.-OlR 

ENOF 

CONVERT  THIS  COORDINATE  SYSTEM  DIRECTION  TO  AN  AZIMUTH 
CALL  FAZ  (OHAZIN) 


AZLFT-AZIN-OELAZ 
AZRGT-AZIN.OELAZ 
IF  (AZLFT.LT.0.0)  AZLFT-AZLFT.  360.0 
IF  UZRGT.LT.oi)  AZRQT. AZRGT. 360.0 
IF  UZLFT.GT .360.0)  AZLFT-AZLFT -360.0 
IF  (AZRQT.GTJ60.0)  AZRGT . AZRGT <360.0 
IF  (AZLFT.GT AZRGT)  AZRGT-AZRQT-380. 

IF  (AZIMUTH.LT.0.0)  AZIMUTH -AZIMUTH. 360.0 


it;  azimuth  azimuth 

GO  TO  200 


EVALUATE  HEIGHT  OF  COOKER  PUFF 


FIND  ELEVATION  OF  THE  GROUND  UNOER  THIS  PUFF 
IXP-NINT(XP/SCALE) 

(YP-NINTjYP/SCALE) 

IF  (IXP.LT.1)  IXP-1 
IF  (IYP.LT.1)  IYP-1 
IF  IXP.GT.NX  IXP-NX 
IF  (WP.GT.N  Yi  IYP-NY 
PX2-IXP-SCALE 
PY2-IYP-SCALE 

PRANGE-«PY2-Y1)"2HPX2-X1)"2)“.5 

IP.NY*(IXP-1UIYP 

PELEV-CONT(IELEVJIP)) 

ADO  TO  THIS  ELEVATION  THE  HEIGHT  OF  P-E  PUFF 
MAX  PUFF  HEIGHT  IS  X  METERS  (IX  FEET) 
HEIGHT-RADIUS 

IF  (RADIUS.QT.0.030)  HEIGHT-0. OX 
PELEV-PELEV.HEIGHT 

FIND  ELEVATION  ANGLE  TO  THIS  DUST  PUFF 
TOP-PELEV-SELEV 
BOT. RANGE 
BOT-RP 

ANGLE  I- AT  AN(TOP/BOT) 

WRITE  (TO.*)  TARGET  ELEVATION  ANGLE  'ANGLE 
WRITE  (10.J  PUFF  ELEVATION  ANGLE  'ANGLEI 
IF  (ANGLE  I.GTANGLE)  JSKIP-0 
10  CONTINUE 


300  RETURN 
ENO 


SUBROUTINE  READMINES 
C  READS  MINEFIELD  DATA 

COMMONMNESNMINESAYMINE(10a2).WLMINE(1Xi).NAZMINE(1XJ) 
COMMON/M  NEK».LS/MINEK(2aO  .2) 
COMMONMINEBREECWMBHEECH(2X^MINEON(100) 

CHARACTERS)  UNE 

C  NMINES  -  NUMBER  OF  MINEFIELDS 
C  XYMINE  -  X  AND  Y  COORDINATES  OF  CENTER 
C  WLMINE  -  WIDTH  ANO  LENGTH  OF  MINEFIELD 
C  NAZMINE  ••  NUMBER  OF  MINES  IN  FIELD.  AZIMUTH  OF  LENGTH. 

C  SURFACE  (1)  OR  BURRIED  (0) 

0010U1.1X 

MINEON(l)-1 

WLMINE(i,1U0. 

wlmineM-o. 


51 


10 


303 

903 


NA2MINE(L1>-0 
NAZMMC  ljj3 
NA2MMEUS-0 
XYMINEUI)— 1. 
XYMINEIUK-I. 

FORMAT  (A90) 

FORMAT  fl  KASO) 

OPEN  (IFAE-MNES.IW) 
READ  1,303  LME 
WRITE  ra03  LINE 

(CAD  1J09LME 
WRITE  r.soa  UNC 

(CAD  UOaUNE 
WRITE  f.SM  LINE 
FORMAT  IK 
FORMAT  (1X.W) 

READ  (ijfll)  MUNES 


FORM 

FORMAT  llX.. 

READ  (1.3d3  LNE 
C  WRITE  r.503  LINE 

READ  UOKLNE 
C  WRITE  r,503  LINE 

(CAD  1,303}  LNE 
C  WRITE  C.S03  LINE 

DO  320  U1.NMINES 

READ  (013}  N.IX.IY.L.IW.IAZRUM.UUO 
C  WRITE  (\314)  N.OClY,L.IW.lAZ.NUM.LAlO 
XYMINE(L1)-REAL(lXyi000. 
xymineMS-REal  IYV1000. 
WLMME(L1HREAL(IWyi000. 
WLMINEM-RlALavfoOO. 
NAZMWE(L1)-NUM 
NAZMINE(li)-lA2 
NAZMINE(L3)-LAIO 

320  CONTMUE 

CLOSE  (1) 

□04001-000 

MINEK(LIH) 

MIN£KjL2)«0 
MBREEOkLIJ-O 
MBREECH<La-0 
400  CONTINUE 

RETURN 

END 


C 

C 

C 

c 

c 


SUBROUTINE  PL0TMINE3 
PLOTS  MINEFIELD  LOCATIONS  ON  MAP 

FILLS  THE  AREA  F  THE  MINEFIELD  IS  SURFACE  LAID  OR  BURRED 
BUT  -DISCOVERED1  BY  A  VEHICLE  GETTING  BLASTED 
F  UNDISCOVERED  AND  BURRED,  THE  AREA  IS  NOT  FILLED  IN 

GOMMON/GRONX.NY.SCALE.SCFACT.PRFACT.ZFAGT 
COMMON/ZOOM/SLX8LY  .XLEFLZF  ACTN.XM  AX.YM  AX,  YUNIT 

COMMONMWE»NMINES,XYUINE(100i).WlMINE(100J).NAZMINE(100,3) 

COMMON/MINEBREECHfMBREECHC2QOjoMlNEON(100) 

DIMENSION  XAflRAY(4LYARRAY'4) 

PI-3.14150 

ORAWS  ANO  FIXS  A  SQUARE  FOR  SURFACE  OR  KNOWN  MINEFELD 

CAU  FACTOR  (2FACT) 

GXUNIT.  1 1  JYNX'SCFACT 
GYUNIT-8.S/NY 
XUNIT-GXUNIT/SCALE 
YUNIT-QYUNIT/SCALE 

D0200M.NMMES 
F  (NA2MINE(l.3).EG.O)  GO  TO  200 
F  (MINEON(I).EQ.O)  GO  TO  200 
XC-XYMINEll.l) 

YC-XYMINEIIA 

WDTH-WLMINEM.1) 

WL0NG-WLMINEIL2) 

AZ-REAL(NAZMINE|L2)) 

CALL  FDIR  (AZDIR) 

OFUOtfVISO.'PI 

X1-XC*WLONGI2.-COS(DIR>-WDTH/2.-SIN(OIR} 

Y1-YC4WLONG/2.*SW(ulfl)*WlOTH/2.*COS(DIR) 

X2-XUWIDTH‘SIN(Dim 

Y2-Y1  *WIOTH*COS(Dlflh 

X3.X2-WLONG-COSjplR) 

Y3-Y2-WL0NQ-SN(DIR) 

X4-X3-WI0TH-8IN®IR) 

Y4-Y3-WIOTHXOS(Dta) 


F  (XLEN.GT.O.)  CALL  FACTOR  (ZFACTN) 

I  SKIP-0 

CALL  NEWPEN  (13) 

XARflAYIIHXrXUNIT 
XARRAY  2HX2-XUNIT 
XARRAY3  -X3-XUNIT 
XARRAY  4  -X4-XUNIT 
Y  ARRAY  1  -Y1-YUNIT 
YARRAYffi  -Y2-YUNIT 
YARRAY5-Y3-YUNIT 
YARRAY  4 -Y4-YUNIT 
Y10-B6-YMAX 
XHK06-XMAX 
X11-jOS*XMAX 
YII-jOS-VMAX 

D0 100  J-M 

IF  (XARRAY (J1.LE.X11)  XARRAY(J)-X11 
IF  (YARRAYijj.LE.Y1 1  YARRAY  jj-Yl  1 
If  (XLEN.GT.O.)  THEN 

CALL  ZOOMIT  (XARRAY(J).YARRAY(J).ISKIP) 

F  (ISKIP.EQ.1I  THEN 
IF  (YARRAYUI.GT.Y  10)  YARRAY(JUY10 
F  |  XARRAY  Jjj.GT.X1oj  XARRAY(jj-X10 
ISKF-0 
ENOF 

ENDF 

100  CONTINUE 

F  (XLEN.GT.O.)  THEN 

F  (XARRAY!  1IXE.X  1 1  ANDJ(ARRAY(2)X£  J(1 1  AMJXARRAY(3)i£  J<1 1. 

A  AN0.XAFRAYI4I.LE.X1 1)  ISKF-1 

F(YARRAY(1).LE.Y11ANO.VaRRAY(2)1£.Y11AND.YARRAY(3UE.Y11. 

A  AN0.YAHRAY(4).L£.Y11)  ISKF-I 

F  (XARRA YJ  1J.GOl0.AN0.XARRAY(2).GEJI10  ANO  XARRAY (3).GEJ(  10. 
A  AND.XAHRAY(4).GE.X101  ISKIP-1 

F(YARRAY(1J.GE.Yt0ANO.VAHRAY(2).GE.Y10AND.YARRAY(3).GEYia 
A  AND.YARRAY(4).GEY10)  ISKIP-1 

ENOF 

F  (ISKIP.EQ.1)  GO  TO  200 

F  (NAZMINE(I.3).E0.1)  THEN 
C  DRAW  AND  Flu.  FOUR  SIDED  SQUARE 
CALL  FILL  (4AARRAY. YARRAY) 

ENDF 

F  (NAZMINE(L3).EQ.O)  THEN 
C  DRAW  EUPTY  BOX 

CAU  PLOT  (XARRAY(1),YARRAY(1 
CAU  PLOT  XARRAY  2j,YARRAY(2 
CAU  PLOT  XARRAY®, YARRAyS 
CAU  PLOT  (XARRAY  «  .YARRAY  4  . 

CAU  PLOT  {XARRAY  ij.YARRAYjl  j, 

ENDF 

200  CONTINUE 
C  READ  (Y) 

RETURN 
END 


SUBROUTINE  MINEFIELD  (KSIDE.K.DELPOS.DIR.INNOW.INNEXT1 
COMMON/M  INES/NMINES,XYMINE(100^),WLMINE(  100 -!),NAZMINE( 
COMMON/MINEBREECH/MBREECH(200.i,MINEON(100> 
COMMON/MO  VE/BXYA(200 2)  JTXYA(200l2).IBSA(200^).RSA(200^), 
A  L1BM.L2MJ.3M.L1RM 

COMMONFORC£jBHIER(200).RHIER(20ffl^UNITf200).RUNIT(200). 

A  IBSYS(200i).IRSYS(200ja.L1BFjiFjiFi1RFj4Bjm 
C 

CHARACTER-18  8HERRHIERHIEA 

CHARACTER-24  BUNITRUNIT 

CHARACTER-90  L1BF.L2FJJFX1RFX1BMJL2MJJMX1RM 

C  KSIOE  UNIT  SIDE 

C  K  UNIT  NUMBER 

C  DELPOS  DISTANCE  TO  BE  TRAVELED  IN  THIS  TIME  STEP 
C  DIR  TRAVEL  DIRECTION  (CARTESIAN  ANGLE) 

PI-3.14190 
IN  NOW-O 
INNEXT-0 


100.3) 


F  (KSI0E.EQ.1)  THEN 
Xk-BXYA(K.I) 

YK-BXYA(X2j 
ELSE 
XK-RXYA(K,1) 
yk-rxyaJk^i 
ENOF 

DO  lOObl.NMINES 
F  (MINEON(I).EQ.O)  GO  TO  100 
F  ilNNOW.NE.O.OR.INNEXT.NE.0)  GO  TO  200 

XC-XYMINE(LI) 

YC-XYMINE  ijj 
WIDTH- WLMINE(I.I) 
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oo  o 


WLONG.WLMME(U) 


(AZ.08U 

SEE  F  THIS  UNIT  IS  CURRENTLY  M  THIS  MINEFIELO 

FINO  RANGE  TO  CENTER  OF  THE  MWEFELO 

FIND  (2S^Se  AN§!et8  OF  UMEFELO 

TOP-YC-YK 
BOT.XC-XK 


F  (BOT.EG5.OI  BOT-BOT+.OOt 
RpR.ATANJA8SjTOPyABS(BOT))* 


ieovpi 


(TOPa.T.O.p)  ROIfl-fiOIR*taO. 
F  (TOP.OT.O.O)  RDIR.180.-ROIR 

F  (TOP.LT.O.O)  RDFU3eO-RO« 


ELSE 
ENOF 

FINO  UNEOF-SIGHT  THICKNESS  OF  THIS  MINE  FELD  TOWARDS  UNIT 
ALPH/UAB8«OeL-90>RDH) 

F  (ALPHA.E0.90.0.0AALPHA.EQ^70.)  THEN 
TLOS-WLONG/2. 

FISC 

TLOSWABS<yWm«COS(ALPHA/180.<?l))V2. 
EF^OS!GT.(WLONQ«.))  TL03.WL0NG/2. 

F  (TLOS.GT.flC)  INNOW. I 
THIS  UNIT  IS  CURRENTLY  M  THIS  MINEFIELD 

FINO  F  THIS  UNIT  WILL  BE  M  THE  FIELD  F  IT  CONTINUES 
TO  MOVE  IN  CURRENT  DIRECTION 

XK.XK.DELPOS"COS<Dlfl‘Pl/180.) 

YK-YK»DELPOS'SIN(OIR*PV180.) 

FINO  RANGE  TO  CENTER  OF  THE  MINEFIELO 


RC-((YC-YK)"2«(XC-XK)"2)".5 
FINO  RANGE  ANGLE  TO  CENTER  OF 


TOP-YC-YK 

BOT.XC-XK 


OF  MINEFIELO 


F  (BOT.EQ.O.O)  BO T. BO T*. 00 1 
Rplfl«ATAN(AB3^TDPyA&S<BOT))*180^l 

F  (BOTXTiJjO) pop|JT  RDSURDIR.180. 

F  (TOP.GTLLO)  RDIFUiaa-ROIR 

F  (TOP.LT.0.0)  RDW-380.-RDIR 

ENOF 

FINO  LME-OF-SIGHT  THICKNESS  OF  THIS  MINEFIELO  TOWARDS  UNIT 
ALPHAWkBS((OeL-aO.>FIOFI) 

F  (ALPHA.EO.S0.0.ORjALPHA.EQ^70.)  THEN 
TLOS-WLONG/2. 

ELSE 

TLOSHABS(W»TH/COS(AtP  HA/180.  "PI))V2- 
^F^TLOS.GT.IWLONQtt.))  TLOS-WLONG/2. 

F  (TLOS.GT.RC1  INNEXT-I 
1IT  WILL  REMAIN 


C  THIS  UNIT  WLL  REM 

100  CONTINUE 

200  CONTINUE 

RETURN 
END 


IN  OR  ENTER  THIS  MINEFIELD 


SUBROUTINE  MINEKILL  (KSIDEXINNOW.INNEXT.DELPOS) 

COMMON/MNES/NMINES.XYMINE(10QS).WLMINE(  1Q0SJHAZM  INE(  100.3) 
COMMON/M  NEKLLSAIINEK(200j2) 

F  (INNOW.NE.01  THEN 

AF€LD.WLMINEIINNOW.1)*WLMINE(INNOWS) 
D£NS-REAL(NA2MINE(INNOW,1))/AFIELD 
FOUND.  INNOW 

else 


F  (INNEXT.NE.OI  THEN 

AFIELD- WLMINEIINNEXT.irWLMINEIINNEXTS) 
DENS.R£AL(NAO<INE(INNEXT.1))/AFIELD 


ENOF 


FOUNO.W 

ENOF 


VEXT 


F  (FOUNONEX8  THEN 
AREA.OELPOS-.4ois 

PMU-0£N3*AREA 
PO-EXPJ-PMU) 
P1.1.OP0 


PLIVE-RNOQ 

FgKQTPDvE, 

ENOF 

RETURN 

END 


MMEK(ICKSIOE).FOUND 


SUBROUTINE  WMME  (KTIMEJSOEJNFFLO) 

MINEFIELO  KLLS  DATA  OUTPUT 

KTIME  KIU  TIME 

JSIDE  SYSTEM  SIDE  (1  BLUE.  2  RED) 

J  VEHICLE  NUMBER 

JSYS  SYSTEM  NUMBER 

NFIELO  MINEFIELD  NUMBER 


COMMON/FORCE/BHIER(200).RHIER(20(XSUNITr200),RUNIT(200). 
8  IBSYS(200S).IRSYS(200aX1BFX2FiJFi1RFmNR 

CHARACTER"*)  L1BF.L2FL3F.L1RFXlBML2MLJMi.1RM 
CHARACTER’ 18  BHER.RHIER.HIER 
CHARACTER'S*  BUNITRUNIT 

F  (JSIDE.Ean  THEN 
JSYS-BSYS<J,1) 

ELSE 

JSYS4RSYS(J,1) 

ENOF 

FORMAT  (S(I4.3X)) 

WRITE  (15.1)  KTIME JS IDE, JJSYS.NFIELD 

RETURN 

END 


C 

C 

c 

c 

c 

c 

c 


SUBROUTINE  BREECH 

PLACES  VEHICLES  IN  MINEFIELD  BREECH  MODE  WHICH  FIXES 
THEIR  SPEED  TO  4  KM/HR,  BUT  MAKES  THEM  INVULNERABLE  TO  MINES. 
this  routine  also  allows  the  operator  to  turn  minefields 

ON  OR  OFF  TO  SIMULATE  BREECHEO  MtNEFELOS  OR  UNITS  MOVING 
QUICKLY  THROUGH  SAFE  LANES  IN  KNOWN  MINEFIELDS. 

COMMON/ORIQ/NX.NY  .SCALE. 9CFACT.PHFACT.ZF ACT 
COMMON/ZOO  M/8LILBLY.XLESLZFACTN.XMAX.YMAX.YUNIT 
COMMOWORCE/BHIER<2a0).RHFR[200|.BUNIT(200).RUNrr<200>. 

A  ®SYS(2M2),RSYS(20021.L1BF.L2FLJF.L1RFjffl^R 

COM  MCXi1^VE;’BXYA{200i).RXYA<200J).IBSA<2D0 J).RSA(200^). 

*  L1BM.L2M.L3MX1RM 

COMMONWEAPONS^IBFNRF,BFNAME(10)XFNAME(10).NWB(10).NWR<10|. 

- - “"Hiso^jLPKRrwSB. 

EMINfl(30)>CQe(iaS)>COR(l6.5ijRCHB<1^%K>IR(l4x 
A  MILB/IO  3>,MILR(10.3) 

COMMON/M  ANEUVERroXYO(200£),RXYOg0jX2)tMTYPEB(200).MTYPER(2Q0) 

COMM(S^DESA4^MB(2001>SoEMR(20m?rt»IMB(20a3). 

A  TCMMRf200.3),TTMMB(200.3),TTMMR{20a.3).MOOEFB(200), 

A  MODEF  R(200).KEWB(200|  ,KEWR(200) ,  lCFMB{200.(8.TCFMR(200.B), 

A  TTFMB(200.8).TTFMR(200.8LTRMMB(200).TRMFB(200).TRMMR(200), 

A  trmfr(2oo).trdesmdoi,troesrSooi 

COMMONMNESPIMINESjiYMINE(10a2).WLMINE(100^)MU9IME(100J) 

COM  MON/M  NEKLLS/MINEK(2002) 

COMMON/M  WEBREECHM8REECH(200.2).MINEaN(100) 

CHARACTER**  BFNAMEflFNAME 
CHARACTER"*)  LINE 
CHARACTER’16  BHER.RHtER.WFR 
CHARACTERS  BUNIT.RUNIT 
CHARACTER"*)  L18FL2FL3FL1 RFX1 BML2ML3ML1RM 
CHARACTERS  C2 

CHARACTER-1  CZC3.C*jCSjC9jC7jC8jCg>Cia£LANK 


WRITE 
WRITE  r," 
WRITE  (V 
WRITE  ('. 
WRITE  r." 
READ{Y 


"1  -  TURN  MINEFIELDS  ON  AND  OFF" 

"2  -  PLACE  VEHICLES  IN  BREECH  MODE" 
"3 -QUIT" 


ntnu  \  ,  .tRRrf)  Cl 
IF  (C1.E0.3)  00  TO  1000 
F  0C1.EQ2)  QO  TO  10 
F  (IC1.E0.1I  THEN 
WRITE  (V)  "FIELD  i  ON/OFF 
FORMATJ1X^(l&t4X)2(F8.3.1X)) 


XcwMr  Ycontar" 


F  (I.EO.C. 

GOTO  3 
ENOF 
GO  TO  2 

BREECH  MODE 


.4)  I.MINE0N(I)J(YMINE(II1)J(YMINE(U) 

ENTER  FIELD  «  (tWXJIT),  OFF-O,  ON-1" 

RR.3  I.MINEON(I) 

GO  TO  2 


KSIDE-0 
WRITE  (*.*) 

WRITE  (".")  "ortor  BLUE  or  RED.  or  QUIT 

WRITE  M 

READ  (Y.ERR.10)  C2 
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c 

a 


f  (Cai:)).EQ.B1  KSOE.1 
f  (C2  1:li.EQ.'R)  KSI0E.2 
IF  ka  1:1).EQ.'Q1  GO  TO  2 
IF  KS  D6.EQ.0)  GO  TO  10 


WRITE 


\&3te( 


WRITE 

a  o  •  no  -i  •  reckless* 

IF  (C2(1:1L£Q.D‘)  THEN 

BLUE 

KKaO 

DO  IXK-I.N8 


■CURRENT  BREECH  STATUS' 

I'  UNIT  HIERARCHY  OENTITY 


t.YES 


BUN  IT (K).M8REECH(K.  1 ) 


121 


(KK.EOJO)  THEN 
READf.") 

KK-0 

ENOIF 

130  CONTINUE 
C 

ELSE 

C  RED 

KK-0 

00140K.1NR 

E(«SYS(KJ!).QE.1)THEN 

WRITE  (".121)  K.RHIER(K).RUNIT(K).MBHEECH<IL2) 

KK.KKul 

ENOIF 

IF  (KK.EQ.20)  THEN 
READ  (*.") 

KK-0 

ENOIF 

140  CONTINUE 
ENOIF 


141 


142 


WR'TE^ENTER  COMMAND  UNIT  (O-RELISTS  -1-QUIT)' 


READ  (Y.iIrR-UI)  COMMAND 
IF  (ICOMMAND.EQ.O)  GO  TO  6 


r  (icommano.eqxI)go  to'io 

WRITE  (".VENTER  NUMBER  RANGE  OF  SUBORDINATES  TO  FOLLOW 
WRITE  (V 1  THIS  ORDER  (4START  (END)  (0  0  FOR  NONET 
WRITE  P.J 
READ  ("  ".ERR-L 

f  r  - 


IEAO  r".ERR.14a  NSUB1 JOUB2 
:  (NSUB1.LE.0)  THEN 
NSUB1.0 


ENOIF 
IF 


NSU824 


(NSU82.LE.0)  THEN 
NSUB1.0 


C 

ISO 


ENOIF 

ma\Sk 


NSUB2-0 


1 


TO  BREECH  MODE  THESE  VEHICLES  ENTER  1.  ELSE  Or 
•RECKLESS  BREECH  (NO  STOPPING  OR  CLEARING)  ENTER  -1* 
■FOR  0  ANO  -1.  ENTER  DESIRED  SPEED  AT  MOVEMENT  ORDER 


WRITE 
WRITE 

ACQMMANO  LEV _ 

WRITE  r,"}_ 

READ  (". ".ERR- ISO)  JOEF 
IF  (JDEf.LT.-1.ORJ0EF.GT.1)  GO  TO  ISO 


IF  (KSIOE.EO.1)  THEN 
IBSAICOMMANDJ 


200 


ass 


ENOIF 

CONTINUE 


jFjlBSYSfUJ.GE.II 

BP0&IU4 


MBREECH(l.1HOEF 

MODEMB(i).1 

ENOIF 


THEN 


.GE.1)  THEN 


MBRE^IiaH  DEF 
MOOEMRIIV-I 
ENOIF 


1000 


GO  TO  141 

CONTINUE 

RETURN 

END 


SUBROUTINE  PKMOVE  (KSCE.IS.ITJTNGAORE.TDF.PI0 

C  REDUCES  PK  WHEN  ENGAGttG  MOVING  TARGETS  ANO  WHEN  SHOOTER  I 
MOVING 

C  FIRE-AND-FORGET  WEAPONS  ONLY. 

C  TWO  ERROR  SOURCES  DOMINATE  THIS  PROBLEM: 

C  1)  THE  ACCURACY  OF  TURMTT  TRAVERSE  RATE  SENSORS  (ASSUMED 
C  1%  ERROR): 

C  a  THE  MOVEMENT  OF  THE  TARGET  UP  OR  DOWN  A  GRADE. 

C  rt€  FIRST  CONDITION  RESULTS  IN  IMPROPER  LEAD  ANGLE. 

C  THE  SECOND  RESULTS  IN  WRONG  SUPER-ELEVATION  OF  THE  GUN. 

C  ALL  OTHER  MOVEMENTS  OF  THE  SHOOTER  AND  TARGET 
C  ARE  COMPENSATED  WELL  ENOUGH  TO  ASSUME  NO  ERROR. 

C 

V©ampOCULRXYA(20a2).IBSA(2a)A).RSA(200J3. 

COM 

DIMENSION  SKMCMREAMO) 

CHARACTER 'WllBFX2FL3FJ.1RF11BMX2MJJMJ.1RM 
DATA  SIG  /0...1.A.3.A..5..B,.7„8..e.1..1.1,1  9.1  J.1-4,1.5. 

A  1.6.1.7.1.8.I.9J.J.1  JJJ.3J.4J.5J.6J.7JJJ.9J.J.1. 

A  3.2,3.3,3.4.3.5.3.6.3.7.3.8,3.91 

DATA  AREA  /.5..53e8..5793..61 7B.S6S8.JB1Su72SS.7Sa.7881. 

A  .8 158,  64 13,  .064 3, 9849.. 9032.-9192,9332. 9452. 9664.. 9641, 

A  .971 3.9772,9821. 9861. 9893uBB1B.J938.B963.9966.JB74, 

•  OQOT  OAQ?  Q(VM1  QflQH  WWAK  RNNJ  /Mwm  IWMt  UMA 

•VBw  1  i-99Q  *  I 

A  1.000 

PU3.141SB 

RANGE •RNG‘10001 
C 

IF  (KSIOE.EO.1)  THEN 
C  BLUE  SHOOTER  /  RED  TARGET 
SS-REAL(ISPOB(IS))/3e0O."1000L 
ST-REAUlSPOR(l'ny3600."100a 
CALL  FDIR  (REAL(IBSA(IS  J)l  JLO) 

CALL  FDIR  (REAL(IRSA(IT^)>2T) 

A2S.AZSn&."PI 

AZT-AZT/180/PI 

XS>BXYA(IS,1) 

YS-BXYA/1S.2) 

XT.RXYA  IT.1i 
YT.RXYA  IT.2J 
GRADETaGRAQEFK  IT) 
asE 

SS-REAL(ISPQR(IS)y360O.M00Q. 

ST-REAL(jSP08(IT)y3600.-1000. 

CALL  FDIR  (REAl(IR 
CAU  FDIR  REAL(lf 
AZS-A2S/lfc."PI 
AZT.AZT/180."PI 
XS-RXYA(IS,1) 

YS-RXYAilSil 
XT-BXYAllT.1) 

YT.BXYAjlTJ) 

GRAOET-GRADEB(IT) 

ENOIF 

DEFINE  UNIT  VECTOR  CONNECTING  SHOOTER  AND  TARGET 


ggipflrMrtm 


C 

C 

c 

c 

c 

c 


DY.YS-YT 
UUOX(RMAG 
UJ43Y/RMAG 

FIND  RELATIVE  CROSSING  SPEED  OF  SHOOTER  AND  TARGET 
BY  TAKING  CROSS  PROOUCT  OF  EACH  VEHICLE  VELOCITY  VECTOR 
ONTO  THIS  UNIT  VECTOR.  THEN  TAKE  DIFFERENCE  IN  CROSS 
PRODUCTS 


AS^S"COS(AZS) 

BSaSS'SINlAZS) 

AT.STTOSIAZT) 

BT.ST"SIN(AZT) 

C  THE  CROSS  PROOUCT  OF  THESE  VECTOR  QUANTITIES  IS  THE  CROSSING 

C  SPEED 


SCROSS-A8S((AS*LU-BS*UI)-(A7*"LLf-BT"Ul)) 

THIS  CROSSING  SPEED  WILL  HAVE  A  1%  ERROR  TO  GIVE  OEFLECTON 
AIMPOINT  ERROR  WHEN  BULLET  ARRIVES  AT  TARGET  RANGE. 


C 
C 

C  FIND  TIME  TO  TARGET  RANGE 
TT -RANGE/BORE'TOF 
C 

C  FIND  HORIZONTAL  OISTANCE  ERROR  TO  TARGET  (METERS) 
DHT.TT*SCflOSS".01 

C  THIS  BECOMES  THE  AIMPOINT  OFFSET  OISTANCE  (METERS) 
DIST.DHT 

C  ASSUME  WEAPON  PK/H.1  J  ANO  THEREFORE  HIT  PROBABILITY  IS 
C  EQUAL  TO  PK/S  AS  ENTERED  ABOVE 

C  FIND  OEFLECTON  ANO  RANGE  ERROR  STANDARD  DEVIATIONS 

DAFIEA-PK-.5 
C  RAREJUQAREA 
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IF  (0 

10  CONTINUE 
20  CONTINUE 

BOT-PROB2-PROB1 
TOP-8' 

DStO-S 
HSIQ-OS 


ru 

SITtO 

'  IO.OAREA.GE.PROB1)  GO  TO  20 


nugcrmai 

^^MD^VprOB1)*TOP/BOT 


FIND  TARGET  DEFLECTION  LEFT  AND  RIGHT  LIMITS  IN  TERMS 
OF  STANDARD  DEVIATIONS  WHEN  HORIZONTAL  AIMPOINT  ERROR  IS  INCLUDED 
ASSUME  TARGET  IS  THREE  BY  THREE  METERS  SQUARE 
THEREFORE  FINO  ADDITIONAL  DEFLECTION  ERROR  IN  TERMS  OF  A  TARGET 
WIDTH  STANDARD  DEVIATION 
0IST-ABS(0IST/1.6) 

BLFT-OSIG-OIST 

BRQT-DSIG-OIST 

SLFT-ABSpLFT) 

SRGT  »  ABS(BRGT) 

J-1 

K-1 

FIND  PROBABILITIES  ASSOCIATED  WITH  THESE  SIGMA  BOUNDARIES 
OO  30 1-1.30 

IF^5LFTAE.SIG(I*1 ). ANO.SLFT.GE. SIG|I))  THEN 
ENDS* 

IF  (SRGT.LE.SIG(k1).ANO.SRGT.GE.SIG<0)  THEN 
A1-AREA(l)-0.5 
IUI 
ENOIF 
CONTINUE 

I) 

TOP/BOT 


30 


TOP/BOT 

r  (SLFT.GE.SK3/4011  A2-0.S 
F  (SRQT.GE.SIG(40))  A1-0.S 

F  (BRGT.GE.0.01  THEN 
DPROB-A1+A2 
asE 

OPROB-A2-A1 

ENOF 

C 

C  VERTICAL  AIMPONT  ERROR  IS  BASED  ON  AMOUNT  OF  VERTICAL  DISTANCE 
C  THE  TARGET  WILL  MOVE  WHEN  DRIVING  UP  OR  DOWN  A  GRADE.  BASED  ON 
C  THE  TIME  OF  FLIGHT  TO  TARGET  RANGE. 

OVT-ST*SIN(GRAQET*PI/l8Q.|TT 

C  THIS  BECOMES  THE  HEIGHT  ABOVE  OR  BELOW  THE  TARGET  CENTER  AT 
C  TARGET  RANGE 

HEK3HT.ABS(OVT) 

C  EVALUATE  NEW  RANGE  ERROR  PROBABILTIES 

C  FIND  TARGET  RANGE  TOP  AND  BOTTOM  LIMITS  IN  TERMS 
C  OF  STANDARD  DEVIATIONS  WHEN  THE  VERTICAL  AIMPOINT  ERROR  IS  INCLUDED 
C  ASSUME  TARGET  IS  THREE  BY  THREE  METERS  SQUARE 
VERR-ABS(HEIGHT/1.S) 

BTOP-RSIG-VERfl 
SBOT— RSIG-VERfl 

C  FINO  THESE  BOUNDARIES  IN  TERMS  OF  STANDARD  DEVIATIONS 

STOP-ABS(BTOP) 

S80T-ABS(B80T) 

J-1 

K-1 

C  FIND  PROBABUTIES  ASSOCIATED  WITH  THESE  SIGMA  BOUNDARIES 
DO40UU8 

F  (ST0P.LE.SIG(H1).AND.8T0P.GE.SIG(I))  THEN 
Ai-AREA(l)-0.5 

ENOF 

F  (SBOT.LE.SIG(U1)ANO.SBOT.GE.SIG<I))  THEN 

tSl6*! 

ENOF 

40  CONTINUE 


TOP/80T 

TOP-AREA/K-  11-AREA/K) 

BOT-SK3(K*ll-SK3(K) 

A2-A2*(SBOT-SIG(k))'TOP/BOT 

F  (8TOP.GE  .3X3(40))  A1-0.5 
F  (S8OT.Q£.SIQ(40))  A2-0.S 

F  (BTOP.GE.O.O)  THEN 


RPROB-A1-A2 

asE 

RPROB-A2-A1 

ENOF 

C  CALCULATE  NEW  PK  BASED  ON  MOVMG  TARGET  AIMPOMT  ERROR 
PK-OPROBWROB 
RETURN 

&o 


SUBROUTINE  READARTY 
READ  ARTILLERY  SYSTEMS  CHARACTERISTICS 

INPUT  CHARACTERISTICS  FROM  DATA  FLES 

FILE  STRUCTURE  IS  DEFINED  IN  FILE  TILLERY.IN' 

NBFA  «  OF  BLUE  ARTILLERY  SYSTEM  FIES 
NRFA  •  OF  RED  ARTILLERY  SYSTEM  FLES 
BANAME  aUE  ARTILLERY  SYSTEM  FILE  NAMES 
RANAME  RED  ARTILLERY  SYSTEM  FILE  NAMES 
NAMB  •  OF  aUE  MUNITIONS  FOR  EACH  ARTILLERY 
NAMR  •  OF  RED  MUNITIONS  FOR  EACH  ARTILLERY  SYSTEM 
NAMMOB  NUMBER  OF  ROUNOS  FOR  EACH  BLUE  MUNITION 
NAMMOR  NUMBER  OF  ROUNDS  FOR  EACH  RED  MUNITION 
IATYP8  BLUE  AMMO  TYPE  (1£OR»  (10.5) 

IATYPR  REO  AMMO  TYPE  (1,2,  OR  3)  (1 0.5] 

IAFAFB  BLUE  MUNITK3N  M+L  OR  F-AF  (10 .1 

IAFAFR  RED  MUNITION  M-H.  OR  F-A-F  (10.! 

IARNGB  MAX  RANOE.TOF .CEP _*SUBS .PATTERN  AREA  FOR  SUBS  (10.5.5) 
IARNGR  MAX  RANGE. T0F.CEP.4SUBS.PATTERN  AREA  FOR  SUBS  (10.5.5 
ARTPKB  BLUE  ARTILLERY  PK  TABLE  AGAINST  20  REO  SYSTEMS  (20.10.5) 
ARTPKR  REO  AHTLLERY  PK  TABLE  AGAINST  20  BLUE  SYSTEMS  20.104 
IABTUBE  aUE  TUBE  8EPARATK1N  DISTANCE  (10) 

IARTUBE  RED  TUBE  SEPARATION  DISTANCE  (10) 

ISCOOTB  SHOOT/SCOOT.  4RNDS.  SCOOT  OIST.  SCOOT  TIME 
ISCOOTR  SHOOT/SCOOT.  4RNDS,  SCOOT  DIST.  SCOOT  TIME 


(10  MAX) 

(10  MAX) 

(10  MAX) 

(10  MAX) 

SYSTEM  (5  MAX) 
(5  MAX) 
(10.5) 
('0.5) 


(10A) 

(10.4) 


COMMON/ARTYDAT/NBFANRFABANAME(10)T1ANAME(10)HAMB(10)HAMR(10) 
A  .NAMM08(10.5).NAMMOfi<10.5),WTYPB^0.5).IATYPfl<10.51 
A  . IAF AF B(  1 0,5),  1AFAFR1 10,5), IARNG8(10, 5.5). tARNGR1 10,5,5). 

A  ARTPKBbo.iaS)ARTPKR(2b.10.S).IABTUBE(10).IARTIjaE(10). 

A  ISCOOTB(10A).ISCOOTR|lOA) 

CHARACTER'S  BANAMEJ1ANAME 
CHARACTER"*)  LINE 

C  niTTAUZE  ARRAYS 
DO  116  JJ-1.10 
NAMB(JJM) 

MUR(JJ)~0 

BANAMEUJ)-" 

RANAMEiJJV* 

IABTUBElJJJ-0 
IARTUBE(JJ)-0 
DO  117  11-1.5 
NAMMOB(JJ.IIW) 

NAMMOR(JJ.II) -0 
IATYPB(JJ,ll)-0 
IATYPR  JJ.llJ-O 
lAFAFB(JJ.II)-0 
IAFAFR(JJ,ll)-0 
IF  (ll.LT.51  THEN 
iscooTauj.m-o 

ISCOOTRjjJ.II  -0 
ENDF 

DO  1 14  KK-1,20 

ARTPKB(KKvJJ.II)-0.0 

ARTPKR(KK.JJ.II)-0.0 

114  CONTINUE 
00  115  KK-1.5 
lARNGB(JJ,ll,KK)-0 
IARNGRjjJ.11,100-0 

115  CONTINUE 

117  CONTINUE 

118  CONTINUE 

C 

301 

302 

303 

501 

502 

503 


ERY.IW) 


FORMAT  (, 

FORMAT  (A  , 

FORMAT  (1X.es 
FORMAT  ( 

FORMAT ( 

OPEN  (IFIE-'TIL 
READ  (1301)  NBFA 
C  WRITE  (*,501)  NBFA 
DO  310  I-1.NBFA 
REAO  (1.302)  BANAME(I) 

C  WRiTE  (’.502)  BANAME(I) 
310  CONTINUE 
READ  (1.301)  NRFA 
C  WRITE  (*,501)  NRFA 
DO  312  hi  .NRFA 
READ  (1302)  RAN  AME(I) 

C  WRITE  (*,502)  RANAME(I) 
312  CONTINUE 
CLOSE  (1) 

C 
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c 

c 


c 

c 

c 


READ  BLUE  FEES 
ORENjLFi 


_ ^lMANAMEIW 

READ  (ISOS  UNE 

LIE 


WRITE 


C 

320 


LNE 


IU-1.5) 


C 

321 

$21 

C 

C 

C 

331 

$31 

C 

C 

C 

C 

C 

341 

361 


C 

3S0 


C 

C 

C 

361 

362 


400 

C 

C 

C 


'sasxa® 

READ  (1.303  LME 

■""igHu. 

WRITE  (ISOMUNE 
FORMAT  (3161 

CflQUAt  (lOD 

R^°iteLWE 

(1.30a  LME 
WRITE  f. 503(1 LWC 
FORMAf  ($3) 
FCRMATtULS 


WRITE  I 


WRITE 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


"""^SSSwe 

WRITE  T,S03  LINE 

H&D  IJOaLWE 
WRITE  (\S03  L»* 

FORMAf  (10F82) 

^°^REACM  1 ,34^^ARTPK8(K,U),K- 1,10) 
WRITE  (*.351)  (AHTPKB(K,I.J),K.  1.10) 

CONTREApi1,30a  LME 
Ej^SOgUNE 

P^J,%»IABTUBE«$ 

write  rsosuje 

fCADjljbaLWE 
WRITE  r,50MUNE 
FORMAT  (40) 

FORMAT  (ULAN 
READ  (1*321) 

WRITE  (*.362)  (15 

CLOSE  (1) 

CONTINUE 

READ  RED  FEES 

001400M.NRFA 
OPEN(1EILE-RANAME(l» 
READIUOa  LNE 

^rf|§LNE 

LNE 


WRITE  CS03  LINE 
&AD  1.3031  L 

^BSMBSSSMT* 

)  1360  J-1.NAMfl<l> 

READ  0203  LNE 

"l^ADIIJOai 


WRITE 
I  _ 

WRITE  <\ 
DO 


WRITE 


ILNE 


WBrrE*&AO  (1^3211  IAMMO.IATYPR(I.J).IAFAFR(I.J) 
DWIEgBlj  MLMMOWTYPRlUi.lAFAFRIU) 

- READ.j  j*g 

TLWE 


•"TfiBWi* 


i&AD  1231)  (IARNQR(UJ0,K.1.5) 


C  WRITE  C.50SI  LINE 
--  KHAR 


£AD<124iF(ARTI 

wslrr 


READ  (1,341: 

C  WR 
READ 

‘IS- 

c  “S 

READ  (1303)  LME 
C  WRlTE(\SOaLWE 
READ  (1^61)  (SCOOTR, 

C  WRITE  <*2$2>  ( 


f(LlqjSM) 


1400 


CL<a§lflNUE 


RETURN 

END 

C  SU»T^sWIeRT  UNIT  AVAAAMJTY 

fSSSSSS^ 

6  ISCOOTB( 1 0,4),  ISCOOTROOA) 

COMMON/AAVAILnBAVU200|.IRAVl(200)MRAHTB(20aqJ4RARTR(20ILS) 

COMMONI3COOT/1TSC(200i).ITAVUa»J) 

mmaSWKB/Bmrmni^ 

CHARACTER'S  SANAME.RANAME 

CHARACTER-16  BHER.RHIER.WER 

g]jS^?r^X1«=X1(»4L2ML3MX,W 

g  M^^AFMEM^SON  _ 

i  .?:^^^&vroMM^'8^TWQ> 

C  9  -  NOT  AN  ARTLLERY  UNIT 

NFMISOM) 

NFMIS(2)-0 
00 10  Ul  200 
00  5J-1.5 
MFUBUJHi 
S  MFUR(U>-0 
DO  6  J.  1,10 
MILAB(UM> 

$  MLAR(UH> 

DO  73.12 
ITSC(UH) 

ITAVl (UH> 

XYFUBM-O.O 

7  r  nasvSui^io)  then 
KSYsf  iSyS(I1)-10 

NRARTB(l.1pNAMMOB(KSYS.1 
NRARTB  I2UNAMM0B  KSYS2 
NRARTB  l.a.NAMMOajkSYS.3 
NRARTB(l,*j.NAMMOB(KSYS,4 
NRARTB(l,S)-NAMMOB(KSYS.6) 

ELSE 

BAVLin.0 

NRARTBU.1M) 

NRAflTB(l4-0 
NRARTHL3  >0 
nrartSi.4  -0 
NRARTBM-T 
END  IF 

IF  (IRSYS(I,1).OT.10)  THEN 
IRAVL|I).1 

KSYS-IRSYS(I.1)-10 _ 

NRARTR(l.1)*NAMMOR(KSYS.1 
NRARTR  I2)-NAMMOR  KSYS2 
nrarth  iS-nammor  KSYS.3 
NHAHTrIw  -NAMMOR  KSYS.4 
nrartrJls  -NAMMOR  KSYS.S) 

ELSE 
‘RAVLHWS 
NRAflTH(l,1MJ 
NRARTR  12  -0 
NRARTR  1.3 
NRARTR  1,4  -0 
NRARTRO.SH) 
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0*0  i  OOO 


cunc 

10  CONTINUE 

RETURN 

END 


SUBROUTINE  CFIREORS 

ENTER  INOtRECT-fIRE  ORDERS  FOR  ARTILLERY  UNITS 
CHARACTER*!  C2 


KSOE-O 
WRITE 
WRITE  i 
WRITE 


‘X  'ARTILLERY  FIRE  MISSION  ORDERS' 
A  ‘MAW  BLUE  of  RED,  of  QUIT 


WRITE  M 
REAO(V,ERR.IO)C2 
IF  (CaiilLEO-t)  KSDE.1 
IF  Cai:1.EQ.R1  KSIDE-2 
IF  (C2f  1  :i).EQ.QO  GO  TO  1000 
IF  (KSIDE.EQ.O)  00  TO  10 


WRITE  (V) 


WHITE 

WRITE 

WRITE 


jV)  ‘1  -  LIST  CURRENT  MISSION  BACKLOG 
V)  7 -UST  AVAILABLE  ARTILLERY  UNITS 
•A  -3  -  LIST  AVAILABLE  TARGETS' 

MATCH  A  TARGET  WITH  ARTILLERY  UNIT  RANGES 
REQUEST  A  FIRE  MISSION 
S  -  QUIT 

**  ERR- 51  MISSION 

F(MI$SlON.LT.<i.Ofl.MISSION.aT.«)  GO  TO  t 
F  (MI3SION.EQ.8)  GO  TO  10 


WRITE  TV)  ’*  - 
WRITE  M  '5- 
WRITE 
WRITE. 
READf,' 


IF 

IF 

F 

if 


(MISSION.EQ.1  CALL  BACKLOG  (KSIOE) 
(MISSON.EQ2  CALL  ART  AVAIL  (KSIDE) 
SiissoN.Eaa  call  arttgts  (aside 

(MISSION.EQA  CALL  ARTRNG  (KSIOE) 
(MISSION.EQ.S  f 
TOS 


CALL  ARTMISH  (KSIOE) 


1000  CONTINUE 

RETURN 

END 


SUBROUTINE  BACKLOG  (KSIOE) 
OISPLAYS  CURRENT  AHTILLERV  FIRE  I 


MISSION  BACKLOG 


A  IBSYS(200.2), 


COMMONIFORC£/BHIER(200),RHIER(200)BUNtT(200),RUN(T(200)< 

200B).IRSYS(200B)X1BFX2F.L3F.L1RF,NB^R 


COMMON/AMISH/NFMIS(2).MFUB(200,5),MFUR(200,5),XYFUB(200,2). 

XYFUR(200^).MILAa(200,10).MlUR(20aiO) 

COMMON/ARTYDAT/N8FA^HFABANAME(10).RANAME(10)JIAMB(10).NAMR(t 


•  ISCOOTB(io.4),ISCOOTR(I0.4) 

CHARACTER'S  BANAMEBANAME 

CHARACTER'16  BHER.RHIER.HIER 
CHARACTER**  BUNITflUNIT 

CHARACTER  "SO  L1BFX2FL3F.LI  RFX1BMX2MX3MX1RM 
WRITE  I*,*) 

WRITE  M  TIRE  MISSION  BACKLOG 
IF  (KSI0E.EQ.1)  THEN 
WRITE  IV)  BLUE- 
NM.NFMIS(1) 

ELSE 

WRITE  l*.*J  ‘REG 
NM-NFM1S(2) 

ENOF 

WHITE  ('.*)  MISS  «  UNIT  «  UNIT  I.D.  ARNOS  RNOTYPE 

S  AIM  XY  AREA  E.TJV 
KK-o 

DO  20  K-1.NM 

10  FORMAT  (1X.I5BX.ISB]LA24.IS.1X.IS,1)LF7S.1)LF7B,1X.ie.1X.I5) 

11  FORMAT  (1X.10IS) 

F  (KSI0E.EQ.1)  THEN 
FJMFUB(K.1)io.O)  GO  TO  20 

WRITE  (MO)  ILMFUB(Ki1),BUNIT(MFUB(K.1))Ji4FUB0C2)XFU8(K<3), 
AXYFUB(K,1),XYFUBJKB).MFUB(K,4),MFUB(K,5) 
KA^YS-IBSYS(MFUB(K,l),t>IO 
F  (IAFAFB(KASYS,MFUB(IL3M.EQ.1)  THEN 
WRITE  (*,*)  GUIDED  PROJECTILE  TARGET  LIST 
WRITE  (Ml)  (MILAB(KJ)».10) 

ENOF 

ELSE 

FJMFUR(K,1).EO.O)  GO  TO  20 

WRITE  gMK,MFung(,1).RUNIJMFUR(K.1)).MFUR(KB).MFUR(K4), 


WRITE  (MO)  K.MF 
*XYFUR(K.1)JCYFUR(»L2).M 
KASYS-IRSYSlMFL 
F  (IAFAFR(KASYS.Ml 


WRITE  ('.•)  GUIDED  PROJECTILE  TARGET  LIST 
WRITE  Kll)  (MILAR(M>1.10) 

ENOF 

ENOF 

KK-KK+1 

F  (KK.EOBO)  THEN 
READ(V) 

KKaO 

ENOF 

20  CONTINUE 

RETURN 

END 


SUBROUTINE  ART  AVAL.  (KSCE) 

C  DISPLAYS  CURRENTLY  AVAILABLE  ARTLLERY  UNITS  ANO  STATUS 

COMMON/FORCE/BHIER(200)RHCR(200|BUNIT(2a0).RUNIT(200L 
A  BSYS(200i).lftSYS<200i)J.lBFX2f LSFXIRFLNBUfR 

COMMON  AAV  AUIBAVL(200).RAVL(200)NRARTB(200, 5)  J4RARTR(200,5) 

CHARACTER'16  BHERUTWERWER 
CHARACTERS  BUNITRUNIT 

CHARACTER  "SO  L18F.L2FX3FX1RFX1BMX2MJJMHRM 
CHARACTER'S  STATUS 

C  AVALABILITY  FLAGS 

C  1  -  AVAILABLE  FOR  A  FIRE  MISSION 

C  0  -  UNAVAILABLE  (CURRENTLY  COMMITTED  -  SHOOTING) 

C  -1  -  UNAVAILABLE  (SCOOTING) 

C  S  -  NOT  AN  ARTILLERY  UNIT 

STATUS.' ' 

WRITE  (*.•) 

WRITE  M 'ARTILLERY  UNIT  AVALABLITY 
F  (KSItX.EQ.il  THEN 
WRITE  (',•)  'BLUE' 

ELSE 

WRITE  C.TRECr 
ENOF 

WRITE  (*.*)  UNIT  4  UNIT  LD.  4 TUBES  AMMO  BY  4 
•STATUS' 

KK-0 

OO20K.1B00 

10  FORMATTTx.ISBXA24.B.1XB(Q.1X)JW) 

F  (KSiCC.EO.I)  THEN 
F  (IBSYS(K.1).GT.10)  THEN 

F  (IBAVUK).EQ.1)  STATUS- - 

F  (IBAVL(K).EQ.6|  STATUS-SHOOTING 
F  (IBAVL(K).EQ.-1)  STATUS-  SCOOTING 
F  nBSYS(IC2).LE.(7l  STATUS-SKILLED' 

WRITE  (MO)  KBUN  rT(K).lBSYS<K^).(NRARTB(KU) J-  1.5),STATUS 
KK-KK+1 
ENOF 
ELSE 

F  (IRSYS(K,11.GT.I0)  THEN 

-  1EQ.1)  STATUS-— —* 

"  |  STATU3--SHOOTING 

, _ _ _  )  STATUS-'SCOOTING' 

F  ()RSYSft(B).LE.q)  STATUS-SKILLED' 

WRITE  (MO)  ICRUNfT(K).IRSYS(IC2).(NnARTR(IU) J- 1  _5).STATUS 
KK-KK-1 
ENOF 
ENOF 

F  (KICEO.20)  THEN 
READ  (',•) 

KK-0 

ENOF 

20  CONTINUE 

RETURN 

END 


UR(K.y.1>10 
I.MFUrt(<3)).Eai)  THEN 


SUBROUTINE  ARTTGTS  (KSIOE) 

FINDS  AFC  DISPLAYS  ALL  POSSIBLE  ARTILLERY  TARGETS  BASED  ON 
FORWARD  OBSERVER  ANO  AIRBORNE  SURVEILLANCE  ASSETS 

AIRBORNE  ASSETS  GIVE  POSITION.  DIRECTION.  ANO  SPEEO  OF  MX 
THREAT  VEHICLES.  BUT  THEY  ARE  UNIDENTIFIED. 

THE  FORWARD  OBSERVER  CAN  CENTFY  A  VEHICLE  BY  SYSTEM  TYPE 

COMMON/ ARTTGT/ARTGTB(200,2),ARTGTR{200£),ITLS,ITLR 

IITI! .... 

X1RF.NB.NR 
1BSA(200B).RSA(200B). 

COM  MON/M  ANEUVERBXYOQ00j2)BXYOfflp(L2).MTYPEB(200),MTYPER(200) 
S  ,BXYP(200B),RXYP(200BVISPM(200),ISTOfl(20q! 
COMMONjTR>GKIN(VBC«Ea(10.3).BORER(10.3).IRNGB{30X),RNGR(304). 

S  ITRKB(10,4).ITRKROO».TOFB(10.3),TOFR(l6j3) 

COMMON/FLAGS/ITER 

COMMON/ AAV  AJL/IBAVL(200),  IRA  VL(200).NRARTB(200,5),NRARTR(200.5} 
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oo  oooooo  oo 


V 


BLUE 


NTEQER  ARTGTBJkRTGTR 

CHARACTERS  BHERJHHCRHIER 
CHARACTERS*  BUNIT^UMT 

CHARACTER-*)  LtBFUFiJF11flFJ.tBMiJMJJMJ.1RU 
F  (KBOC  EQ.t)  THEN 


WHITE 

WHITE 

WRITE 


REO  UNITS  TARGETABLE  FOR  BLUE  ARTILLERY  FIRE 


10 


F  (ITLB.EQJ)  THEN 

00 10  Ut  NR 
ARTQTBILtM) 

ARTQTB(IJM) 

C0MT|*j|aYi,l55lE.t»  ARTGTB0.1H 
OOlSOKalWB 

LOOP  1 

CHECK  TO  SEE  IF  THIS  BLUE  UNIT  IS  KILLED  ANO  SKIP 

IF  (IBSY8(KJ)EO.0.ORIBSYS<K.t).QT.t0)  00  TO  ISO 


FIND  ALL  RED  TARGETS 


LOOP  3 


FIND  ANGLE  ANO  RANGE  TO  ALL  FRIENOLY  ANO  THREAT  VEHICLES 
SO  THAT  MASKING  CAN  BE  EVALUATED 

KSOE.t 

MYSIOE-1 

IBLUEaK 

CAU.  VMASK  (KS  IDE.  BLUE) 

FWO  ALL  REO  TARGETS  OUT  TO  6000  METERS  RANGE 

NSYSM8SY8(K.1) 

RMAX1.600a 

GET  XY  COORDINATES  FOR  THIS  BLUE  UNIT 
XB-BXYAIK.1) 
yb-8xyaJkj) 

F  THIS  BLUE  SYSTEM  IS  OUST  SENSITIVE  IN  TARGET  ACQUISITION, 

FIND  ANGLE  ANO  RANGE  TO  ALL  OUST  PUFFS  SO  THAT  MASKING  CAN  BE 
EVALUATED 

ITRK1.ITRKB(NSY8.1) 

IF  IITRK1.EO.Ot 

A  CALL  DMASK  (XB.YB.RMAX1  RMAX1 JTMAX 1 ) 

FWO  ANGLE  ANO  RANGE  TO  ALL  BURNING  VEHICLES.  SINCE  THEY  COMPLETELY 
MASK  VISUAL  ANO  «  SYSTEMS 

CAU.  COOKMASK  (X&YBNMAX1.RMAX1.RMAX1) 

F  THIS  BLUE  SY8TEM  IS  ENGINE  SMOKE  SENSITIVE  IN  TARGET  ACQUISITION. 
FIND  ANGLE  ANO  RANGE  TO  ALL  ENGINE  SMOKE  PUFFS  SO  THAT  MASKING 
CAN  BE  EVALUATED 

ITRK2-ITRKB(NSYSJ) 

F  IITRK2.E0.gt 

«  CALL  ESMASK  (XB,Y8LRMAX1.RMAX1.HMAX1) 

F  THIS  BLUE  SYSTEM  IS  SMOKE  GRENADE  SENSITIVE  M  TARGET  ACQUISITION. 
FIND  ANGLE  ANO  RANGE  TO  ALL  SMOKE  QRENAOE  CURTAINS  SO  THAT  MASKING 
CAN  BE  EVALUATED 

ITRK3-ITRKB(NSYS.3) 


F  IITRK3.E0.qt 

A  CALL  GRUASK  (XB.YB.RMAX1.RMAX1.RUAX1) 


C 

C  F  THIS  BLUE  SYSTEM  IS  ARTXLERY  SMOKE  SENSITIVE  IN  TARGET 
ACQUISITION, 

C  FIND  ANGLE  ANO  RANGE  TO  ALL  ARTILLERY  SMOKE  CURTAINS  SO  THAT 
MASKING 

C  CAN  BE  EVALUATED 

ITRKA-ITRKB(NSYSvt) 

F  (ITRK4.E0.gr 
ASM  ASK  ( 


•  CALL  ASMASK  (XB.YBRMAX1JWAX1.RMAX1) 

D014SJ.1.NR 

LOOP  4 

CHECK  TO  SEE  F  THIS  REO  UNIT  IS  KILLED  OR  ALREADY  IDENTIFIED 
F  (IRSYSIJ  JLEO.O.OR. ARTGTBLL21.EQ.  1 )  GO  TO  149 
FINO  THIS  RED  UNITS  XY  COORDINATES 
XR-RXYAM.1) 

yrjwySjJ 

FINO  RANGE  TO  THIS  TARGET 

RANGEM(XR-XB)“2a(YR-YB)“2)".S 

CHECK  TARGET  SIGNATURE  AGAINST  DETECTABLITY  AND  SKIP  F 
NOT  DETECTED 


CALL  CHECKS  IG  (1  .KJ.RANGEJSK1P) 
F  (4SKFEQ.0)  GO  TO  149 


F  THIS  TARGET  BOUTSCE  THE  DETECTION  RANGE  SKIP  IT 
JSKF-0 


C 

C 

C 


TARGET  I 

EVALUATE  TERRAIN  ANO  FRIENOLY/ENEMY  VEHICLE 


C  MASKING  ANO  OBSCURANTS  ANO  DROP  THIS 

C  TARGET  F  UNOBSERVABLE 

C 

C  TERRAIN  MASKING 

F  (ITEREQ.1)  CALL  TERRMASK  (X8.YB.XR.YRJSKF) 

F  (iSKFEOJ)  GO  TO  149 

C  VEHICLE  MASKING 

c  CALL  VSEE  (UYSOE.ICIFUNGEAZlNJSKFJiB.NR) 

C  BURN  MG  VEHICLE  MASKING 

CAU  COOKSEE  (XB.YBXR.YRJLZ1NJSKF) 

F  (iSKIP.EQ.O)  GO  TO  149 
C 

c  OUST  MASKING 

C  F  THIS  BLUE  SYSTEM  IS  OUST  SENSITIVE  M  TARGET  ACQUISITION. 

C  EVALUATE  ALL  OUST  PUFFS  WITHIN  RANGE  OF  THIS  TARGET 
J0U3T.1 
F  (ITRK1.EQL 

C  F  THERE  IS  DUST  IN  iHE  WAY  AND  BLUE  CANNOT  SEE  THROUGH  IT 

C  SKF  THIS  TARGET 

F  (JOUST.EQ.OJtND.ITRKI.EQ.O)  GO  TO  149 
C 

C  ENGINE  SMOKE  MASKING 

C  F  THIS  BLUE  SYSTEM  IS  ENGINE  SMOKE  SENSITIVE  IN  TARGET  ACQUISITION. 
C  EVALUATE  ALL  ENGINE  SMOKE  PUFFS  WITHIN  RANGE  OF  THIS  TARGET 
JEN  Gal 


weia. 

■  (ITRK1.EQ.0I 

CALL  OSEE  (XB.YBJtR.YR  >2  IN  JOUST) 

F  THERE  IS  DUST  W  THE  WAY  AND  BUIE  ( 


F  (ITflK2.E0.gi 

9  CALL  ESSEE  (XB.YBJCRYRAZMJENG) 

F  (JENG.EQ.OJkNO.ITRKZEO.O)  GO  TO  149 


C  SMOKE  GRENADE  CURTAIN  MASKING 

C  IF  THIS  BLUE  SYSTEM  IS  SMOKE  GRENADE  SENSITIVE  M  TARGET  ACQUISITION, 
C  EVALUATE  ALL  SMOKE  GRENADE  CURTAINS  WITHIN  RANGE  OF  THIS  TARGET 
JSMKal 
F  (ITRK3.EQ.Q) 

9  CALL  GRSEE  (XB,YBJCR,YRJ1ZMJSMK) 

F  (JSMK£QJJtND.ITRKXEQJ)  GO  TO  149 

C  ARTXLERY  SMOKE  CURTAM  MASK  MG 

C  F  THIS  BLUE  SYSTEM  B  ARTXLERY  SMOKE  SENSITIVE  M  TARGET 
ACQUISITION, 

C  EVALUATE  ALL  ARTXLERY  SMOKE  CURTAMS  WITHIN  RANGE  OF  TH»  TARGET 
JART.1 

F  (ITRK4.Ea.es 

9  CAU  ASSEE  (XB.YBJtR.YRJIZMJART) 

F  (JART .EQ.aAND.ITHK4.E0 J)  GO  TO  149 

C  THB  RED  VEHICLE  CAN  BE  TARGETED  BY  BLUE  ARTXLERY 
AflTGTBtJJM 

149  CONTINUE 

C  END  OF  F9CINQ  A  TARGET  FOR  THIS  BLUE  SYSTEM 

150  CONTINUE 
ITLB-1 
ENDF 

C 

C  LIST  AVAXABLE  TARGETS 

WRITE  C.7  WED#  SYS*  SPEED  HEADING  X  Y 
KKaO 

0O20K-1J00 

11  FORMAT  (1XB,2X.ffijZXIX4XIS.4XFSJFX4l 

C  COUNTER- BATTERY  FLAG  (DISPLAY  UNIT  ID  F  ARTXLERY  AND  SHOOTING) 

KBF  LAG-10 


KKaKK+1 

ENDF 


[X2)JWYA(X1)JWYA(KJ) 


THEN 


KK.KKal 
ENDIF 
F  (KK.EOJO)  THEN 
READ(Y) 

KKaO 

ENDF 

»  CONTINUE 

ELSE 
C  RED 

WRITE  (•,*) 

WRITE  (*.*) '  BLUE  UNITS  TARGETABIE  FOR  TOD  ARTXLERY  FIRE’ 
WRITE  M 

F  (ITLR.EQ.O)  THEN 

00  110  U1.NB 
ARTGTR(l.1)-0 
ARTGTR(l.2>-0 

F  gSYS^.GE.1)  ARTGTR(L1>-1 
OOllSOKalWR 

C  LOOP1 

C  CHECK  TO  SEE  F  THIS  RED  UNIT  IS  KXLED  AND  SKF 
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F  <KSYS(K.2LEa.Q.0R.«SYS<K.  1  ).QT.  Iffl  00  TO  tISO 

FMO  ALL  BLUE  TARGETS  LOOPS 

FMO  ANGLE  AND  RANGE  TO  ALL  FRIENDLY  AND  THREAT  VEHICLES 
SO  THAT  MASKING  CAN  BE  EVALUATED 

KSOC-2 

MYSIOE-2 

IRED>K 

CALL  VMASK  (KSIOE.IRED) 

FIND  ALL  SLUE  TARGETS  OUT  TO  SOOO  METERS  RANGE 

N3YS-HSYS(K.1) 

RMAXl-6000. 

GET  X.Y  COORDINATES  FOR  THIS  RED  UNIT 
XB.RXYMK.1) 

YS-RXYAjlC2) 

F  THIS  RED  SYSTEM  IS  OUST  SENSITIVE  IN  TARGET  ACQUISITION. 

FINO  ANGLE  ANO  RANGE  TO  ALL  OUST  PUFFS  SO  THAT  MASKING  CAN  BE 
EVALUATED 

ITRK1.ITRKR(NSYS.1) 

IF  (ITRK1.EQ  D1 

A  CALL  DMASK  (XB.Y8JHMAX1RMAX1.RMAX1) 

FINO  ANGLE  ANO  RANGE  TO  ALL  BURNING  VEHICLES.  SINCE  THEY  COMPLETELY 
MASK  VISUAL  ANO  IR  SYSTEMS 

CALL  COOKMASK  (XB.YBJU4AX1RMAX1.RMAX1) 

IF  THIS  RED  SYSTEM  IS  ENG  ME  SMOKE  SENSITIVE  M  TARGET  ACQUISITION, 
FIND  ANGLE  AND  RANGE  TO  ALL  ENGINE  SMOKE  PUFFS  SO  THAT  MASKING 
CAN  BE  EVALUATED 

ITRK2.ITRKR<NSYSj9 
IF  (ITRK2.EQ0) 

A  CALL  ESMASK  (XB.YBJRMAX1RMAX1RMAX1) 

F  THIS  REO  SYSTEM  IS  SMOKE  GRENADE  SENSITIVE  M  TARGET  ACQUISITION, 
FINO  ANGLE  AND  RANGE  TO  ALL  SMOKE  GRENADE  CURTAINS  SO  THAT  MASKING 
CAN  BE  EVALUATED 

ITRK3-ITRKRINSYSJ) 

F  ((TRK3.EQ.pl 

A  CALL  GRMASK  (XB.YB.RMAX1.RMAX1.RMAX1) 

F  THIS  RED  SYSTEM  IS  ARTILLERY  SMOKE  SENSITIVE  M  TARGET 
X2UISITION. 

FWO  ANGLE  ANO  RANGE  TO  ALL  ARTLLERY  SMOKE  CURTAINS  SO  THAT 
ASKING 

CAN  BE  EVALUATED 

ITHK4-ITRKR<NSYSA) 

IF  (ITRK4.E0.pl 

A  CALL  ASMASK  (XB,YB,RMAX1,RMAX1,RMAX1) 

0O1149J-1.N8 

LOOP  4 

CHECK  TO  SEE  IF  THIS  BLUE  UNIT  IS  KILLED  OR  ALREADY  IDENTIFIED 
IF  (!BSYSJJi).EO.O.OR.ARTGTR(L2).Eai|  GO  TO  1149 
FMD  THIS  BLUE  UNITS  X.Y  COORDINATES 
XR-BXYAIJ.1) 

YR-BXYjUjil 

FMO  RANGE  TO  THIS  TARGET 

RANGE-((XR.XB)-2*(YR-YB)"2)“.5 

CHECK  TARGET  SIGNATURE  AGAINST  DETECTABLITY  AND  SKIP  IF 
NOT  DETECTED 

CALL  CHECKS IG  (2.K.J.RANGEJSK1P) 

IF  (JSKIP.EaO)  GO  TO  1148 

IF  THIS  TARGET  IS  OUTSIDE  THE  DETECTION  RANGE  SKIP  IT 
JSKIP«0 


TARGET 

EVALUATE  TERRAIN  ANO  FRIENDLY/ENEMY  VEHICLE 
MASKING  ANO  OBSCURANTS  ANO  OROP  THIS 
TARGET  IF  UNOBSERVABLE 

TERRAIN  MASKING 

IF  (ITER.EQ.1)  CALL  TERRMASK  (XB.YB.XR.YR  JSKIP) 

F  (JSKIP.EOO)  GO  TO  1149 

VEHICLE  MASKING 

CALL  VSEE  (MYSIO£,KJ.RANG£AZ)NJSK^.NB,Nfl) 

BURN  MG  VEHICLE  MASKING 

CAU  COOKSEE  (XB.YB JCR.YRJLZM JSKIP) 

IF  <JSKIP.EaO)  GO  TO  1149 

OUST  MASKING 

IF  THIS  REO  SYSTEM  IS  OUST  SENSITIVE  IN  TARGET  ACQUISITION, 
EVALUATE  ALL  OUST  PUFFS  WITHIN  RANGE  OF  THIS  TARGET 
JDUST.1 
IF  (ITRK1,EQ.(» 

A  CAU  DSEE  (XB.YB.XR.YR.AZIN.JDUST) 

C  IF  THERE  IS  OUST  IN  ttiE  WAY  ANO  BLUE  CANNOT  SEE  THROUGH  IT 
C  SKIP  THIS  TARGET 

F  (JOUSTEODANO.ITRK  1.EQ.0)  GO  TO  1 149 


C 

C 

c 

c 


ENGINE  SMOKE  MASKMG 

IF  THIS  BLUE  SYSTEM  IS  ENGME  SMOKE  SENSITIVE  M  TARGET  ACQUISITION. 
EVALUATE  ALL  ENGINE  SMOKE  PUFFS  WITHIN  RANGE  OF  THIS  TARGET 
JENfcl 
IF  (ITHK2.E0.ffl 

A  CALL  ESSEE  (XB.YBjm.VRAZMJENG) 

IF  (JENG.E0J»N0.ITRK2.EQiffl  GO  TO  1149 

SMOKE  GRENADE  CURT  AM  MASKMG 

IF  THIS  REO  SYSTEM  IS  SMOKE  GRENADE  SENSITIVE  M  TARGET  ACQUISITION. 
EVALUATE  ALL  SMOKE  GRENADE  CURTAINS  WITHIN  RANGE  OF  THIS  TARGET 
JSMK.1 

- 


t  CALL  GRSEe  (XB.YB.XRYRJkZNJSMK) 
IF  (JSMKEaOU1NO.ITRiaEQ.ffl  GO  TO  114 


C  ARTLLERY  SMOKE  CURTAM  MASKMG 

C  IF  THIS  REO  SYSTEM  IS  ARTLLERY  SMOKE  SENSITIVE  M  TARGET 
ACQUISITION, 

C  EVALUATE  ALL  ARTLLERY  SMOKE  CURTAINS  WITHM  RANGE  OF  THIS  TARGET 
JART.1 

if  (rmK4.Ea.ffl 

A  CALL  ASSEE  (XB.YB JOLYRmZMJART) 

F  (JARTEQOJkNO.ITRK4.EQO)  GO  TO  1149 

C  THIS  BLUE  VEHICLE  CAN  BE  TARGETED  BY  REO  ARTLLERY 
ARTQTRtUM 

1149  CONTNUE 

C  END  OF  FMOMG  A  TARGET  FOR  THIS  REO  SYSTEM 

1180  CONTNUE 
ITLR.1 
END  IF 


LIST  AVAILABLE  TARGETS 
WRITE  r.T -BLUE#  SYS*  SPEED  HEADING 
KK-0 

00  120  K- 1,200 
KBFLACW-10 

F  (IB3YS(K2).QT.p)  KBFLAG-IBAVLOQ 
F  jARTGTH(iL2).EQ.  1  .ORXBFLAG.EO.C 


0. 1  .OFLKBFLAG.EQ.ffl  THEN 

Y3(K.  1),I3P0B{K).IB3A(K2).BXYA(K,  1)3XYA(K2) 


WHITE  (*,11)  I 
KKaKK+1 
ENOF 

F(ARTGTR(K,1).EaiJ1NOJWTGTR(IC2)£aOJkNO.KBFLAGMEO)  THEN 
WRITE  (*.12)  K.ISP0B(K).IBSA(K2).BXYA(K.1)3XYA(K2) 

KK»KK»1 

ENOF 

F  (KJCEQ  .20) THEN 
READ(Y) 

KK«0 

ENOF 

120  CONTINUE 

ENOF 

RETURN 

END 


SUBROUTINE  ARTRNG  (KSOE) 

C  DISPLAYS  CURRENTLY  AVALABLE  ARTLLERY  UNITS  WITHM  RANGE 
C  OF  A  SELECTED  TARGET 

COMMON/ AAV AJL/I8AVLI200),RAVL(200),NRARTB/20Q,5LNfiARTR(20Q,5) 
COMMON/ ARTTGT/ARTGTB(200.2),ARTGTR(200jQJTLB,iTLR 

COMMON/FORC£/BHI£R(20ffl>RHtER(2pO(,BUNfT/20ffl,RUN(T(20ffl, 

A  IBSYS(200i).IRSYS(200a).L1BF.L2FWFJ.inFNB,NR 
COMMON/MO  VE/BXYA(200,2)tRXYA(20(X2),l8SA(20(L2),R3A(200,2). 

A  L1BM  L2M  L3M  L1RM 

COMMON/MANEUVER/BXYO<20Wn.RXYOgpOJ!).MTYPEB<2M),MTYPER<20ffl 
A  ,8XYP/200^).RXYP/200J2).ISPDBC2CC1.ISPOR(20ffl 
COMMONjTRACKIN(S8OREB<10.3).BOnER(10,3).lRNQB(30^).FINGR(304). 

A  ITRKB(10,4),ITRKH(10,4).TOFB(10,3).TOFH(10,3) 


COMMON/ AM  IS  IVNFUlSm,MFUB(200.5),MnjR(200,5)JCYFUB(2002). 

A  XYFUR(200^,MILAB(2b6,1fflMILAR(200.1ffl 


1ffl,NAMR(1ffl 


INTEGER  ARTGTBJkRTGTR 
DIMENSION  RMAX(S),IRMAX(S) 

CHARACTER'S  BANAME.RANAME 
CHARACTER'16  BHER.RHIER.HIER 
CHARACTERS  BUNITRUNIT 

CHARACTER  *90  11BF,12FX3FX1RFX1BMX2MX3MX1RM 

C  AVAILABILITY  FLAGS 
C  1  -  AVAILABLE  FOR  A  FIRE  MISSION 

F  (KSIOE.EO.1)  THEN 


59 


211 


10 


00211  U1„. 

w 

00"tSSf 


THEN 


'WRn\JrtiV|  fYl  *ENTER  RED  TARGET  NUMBER  (0-QUI1T 

REAO(*.\feRR.1fflJ 
IF  (J.LE.OIQO  TT  — 


F  (J.LE.Oi  00  TO  1200 

F  ARTOT8(J.1j.eaOAMJ.ARTQTB<Ji).Eaq>  THEN 
WRITE  <*.*)  *T  TAROETABLE  ...SEE  TAROETABIJ 


f^.  .  _  _ 
write  r.*) 

GO  T0 10 
ENOF 

XT-RXYA(J.! 
VTJWVAj 
WRITE  C. 
WRITE  (V 


table  list 


AVALABLE  BLUE  ARTILLERY  WITHIN  RANGE  OF  TARGET 
•  UNIT  LO.  RANGE  T.OF 


WRITE  CVUNIT  *  SYS 
A  AMMO  BY  *  I.YES* 

write  r.*i 

11  FORMAT  (1X.RL1X,IS11)LA24.l8b1X,IS>1X.S(l1.lX» 

00 100K.1.NB 

IF  (IBSYSIK.1)L£.I0)  GO  TO  100 
IF  (IBSYSIk  jl.LE.O)  QO  TO  100 
F  IBAVUtg.NEj)  GO  TO  100 
KSVS>eSYS(K.1H0 

i»MSpasrWJ 


ITOF.O 
DO  50  KAM  MO-1.5 
RMAXf . -  ' 


TMAX(KAMM0)»IARNQ8(KSYS.K 
F  (RMMUKAMMOLOEJUNQC)  T  -  - 
HMAXIKAMMOl-l 

ITOF-NINT(RANQ&RMAX(KAMMO)*R£>L(IARNGB<KSYSXAMMO^))) 


I.KAMMO.1) 
|  THEN 


SO 


100 


1211 


110 


else 

ftMAXIKAMMOUO 
EMDlF 
CONTINUE 

AITOF, 


GOTO  10 
ELSE 


F  (tTLREOjOl  THEN 
DO  1211  M.NB 
ARTQTRILIUO 
ARTGTRjL2j5 
CONTINUE 
ENOF 


WRITE  . 
REAOr. 

F  (J.LE.I 

F  “ 


■ENTER  BLUE  TARGET  NUMBER  (O-QUITr 


11C 


J 

1200 


WRITE  (V)  •UNIT#  SYS  • 
f • 1-YES* 


UNIT  1.0. 


RANGE  T.O.F 


IF  (J.UE.OIGO  TO  II 

F  «RTGTR(J.y.EO.OUU®.ARTGTRIJJ2).EO.q)  THEN 
WRITE  r.TWOT  TAHGETABLE  ...  SEE  TARGETA8LE  LIST 
GO  TO  114 
ENOIF 

XT-BXYAIJ.1) 

YT-BXYAuj) 

WRITE  (VI 

^  WRITE  M'AVAAABLE  RED  ARTUERY  WITHIN  RANGE  OF  TARGET 

A  AMMO  BY  1 

WRITE  C,*) 

DO  1100K.1NR 

F  (IRSYS(K.11.LE.10>  GO  T0 1 100 
F  WSYS(Kij.L£0)GO  TO  1100 
FjlRAVQaNE.1)  GO  TO  1100 
KSYS-«SYS(K1>-10 
X8-RXYAIK.il 
YB.RXYAlK.2l 

RAN^^^-YB,^ 

ITOF.O 

DO  ISO  KAMMO-1.S 

RMAX(KAMM01.IARNGR(KSYS.KAMM0.1) 
F<RMAX(KAMMO).GEJUNGE)  THEN 

IT0^NINT(FU%enMAX(KAMMO)*REAL(IARNGR(KSYSJ(AMUO2))) 

ELSE 

nMAX(KAMMO)-0 
ENOr 
ISO  CONTINUE 

GO  TO  110 
ENOF 


1100 


1200  RETURN 
ENO 


SUBROUTINE  ARTMI8H  (KSOEl 
C  REQUESTS  AN  ARTiIeRYFRE  MISSION 

COMMON'FORC£/BHCR(2Q0>,RH£RC20G|.SUNfTl200).RUNIT(200L 
A  IBSYS<200i).IRSYS<200aa-1BFxFj3F4.1RFmNR 

l(10).NAMR(10) 


a^bm^uml^^ 

A  .BXYP(2002).RXVPl20021.tSP08t20Q  .ISr0fi(2Q0l 
COM  MC^I/TRACKtNGlBORE  8(10.3). BORE R(!  0.3),  IRNGB{30(4).nNGR(30v<). 
A  ITRKB1 1 0.4UTRKR1 1 0j4).TOFB(  1 0,3LTCFRljo,3l 
COMMONBAmE^lME7C)TIME.rrGT8(2W>).ITGTRp00il. 

A  PKT8(W02)JKTR(2002>.I11ALB(200|JKILLH<2001.IAMR(200>. 

COAMONIAAVAL/18AVLa00).nAVLC20GNRARTBa0Q1S1NRARTR(20Q,G 

COUMONARnGT/ARTGTB(200^)>RTGTRt20a5TlTLB.ITLfl 

COMMONISCOOT/ITSC(20021.ITAVUaMJ» 

INTEGER  ARTGTBARTGTR 

DIMENSION  IGUOE(IO) 

CHARACTERS  BANAMEMNAME 

CHARACTER*!#  BHERRHER.HER 
CHARACTER’S#  BUNITRUMT 

CHARACTER**)  L1BFX2FX2FA1RFX1BMX2MJJMJL1RM 

FRE  MISSION  DATA  LIST 

MISSION  NUMBER 

-  •  OF  BLUE/RED  FRE  MISSIONS  M  BACKLOG 
II  -  ARTUERY  UNIT  NUMBER 
•  ROUNDS  TO  BE  FRED  FOR  EACH  TUBE 

-  ROUND  TYPE  • 

-  TOTAL  BEATEN  AREA  FOR  ALL  ROUNDS  (METERS *2) 

-  ESTIMATED  TIME  OF  ARRIVAL  IMPACT)  SECONDS 
-  X.Y  POSITION  (KM)  OF  WPACT  POMT 

-  GUIDED  PROJECTILE  TARGET  LIST  (UP  TO  10) 

COMPRESS  EXISTING  LOG  TO  TAKE  OUT  RESOLVED  MISSIONS 
F  (KSDE.EQ.il  THEN 
F  (lTL8.EG.ffl  THEN 
00211  U1.NR 
ARTGTBIUM1 
ARTGTBiUUo 
211  CONTINUE 
ENOF 

NT0TAUNFM8(1) 

NUM1-0 

DO  4  UI.NFMtSIl) 

F  (MFU8(1.1).EQ.6)  THEN 

DO  3  K-NUM1  JFMIS<1> 

MFU8(K.1>MFUB((K+1  .1) 

MFUB(IC2)*MFUB((K*1  A 
MFUWK.31-MFUB  «K*1  .3) 

MFUB(K,4)-MFUB((K*  1  .4 
MFUBIK.55.MFUB  IK*  I  .5 
XYFU8(K.1).XYFUB((K»1).1> 

XYFU8(IC21-XYFUB((K+1)2S 

* 

3  CONTINUE 
ENDF 

4  CONTINUE 

F  (NTOTAL.LE.ffl  NTOTAUO 
NFMISOHNTOTAl 

ELSE 

F  (ITLR.EO.O)  THEN 
DO  1211  M.NB 
ARTGTR(I.IM) 

ARTGTR[l,2}-0 
1211  CONTNUE 
ENDF 

NT0TAL^NFMIS(2) 

NUM1.0 

DO  41  M,NFMIS<2) 

F^MFURH.ll.Eaoi  THEN 

003!  *K-NUM1.NFMIS(2) 

MFUR(K.1)-MFUR((K-1).1) 
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;«iui 

ootiJ-Oo  *’W 

31  CONTINUE 

EM# 

41  CONTMUE 

IFfNTOTALXEa  NTOTAL-O 
NWOCO-NTOTiL 

PW3.141M 
S  CONTMUE 

00  7  1.1,10 
7  SMS£<!M> 

NUMMO 

KSY3-0 

NUttfW) 

ITYPE-0 

MlTYPE-0 

NTAR&4) 

IAREA-0 

IXT-0 

IYT-0 

IO»-4) 

IAZ.0 

SPObO 

IETA-0 

ITOFMAX-O 

RANQ&O 

IRMAX-0 

DELAYS 

10  CONTINUE 

WRITE  p.3 

WRITE  (\3  -REQUEST  NEW  FIRE  MISSION1 
C  LOOP  1 

IF  (K3CE.EQ.1)  THEN 

C  BLUE 

NUMNEW-NFMIS(1>»1 
WRITE  O  BLUE 

WRITE  V)  "NEW  MISSION  NUMBER  'NUMNEW 

WRITE  7JM  -  ARTLLERY  UNIT  •  WMA 

WRITE  '.3  "2  —  TARGET  UNIT  •  '.NTARQ 

WRITE  'A  ■PROJECTED  TARGET  POSITION:  XT  IMtUXT.'  YT  ',IYT 

WRITE  f.T  -3  -  BEATEN  AREA  (M*2)  OR  BASKET  AREAMAREA 

WRITE  V  -4  -  •  ROUNDS  PER  TUBE JJ4UMR 

WRITE  V  B- BOUND  TYPE*  MTYPE 

WRITE  V  B  -  DELAY  FIRING  TIME  '.BELAY 

WRITE  V  •E.TAfejd-  \£TA 

WRITE  V  TARGETRANQE-  MRANGE 

INRITE  V 

#  (MK.TYPE.Eai)  THEN 

WRITE  (*,*)  7  -  GUIDED  PROJECTILE  TARGET  LIST 

WRrrlM  (IGUIOE(JlJ*1-10> 

END# 

IF  INTARG.EO.-1)  THEN 

WRITE  (V)  t  -  SMOKE  ROUNDS  AIMPOINT  XT.YT 
WRITE  p.3  IXT.IYT 
WRITE  p.3 
END# 

F  (NUMA.GT .0_AND.NTARG.aT JOANONUMR.GT.OANO.ITYPE.GT.O)  THEN 
KSYS-IBSYS(NUMA.1) 

IF  (KSY&GT.inTHEA 
KASYS-KSYS-10 
#C-IATYPB(KASYS.ITYPE) 

IFlfC.EQ^l  THEN 

C  ESTIMATE  AREA  TARGET  PATTERN  EFFECTIVENESS 

CALL  FCEST  (1MJMAJ<ASYS.ITYPEJ4UMRJITARG,IAREA) 

END# 

#J#C.Eai)  THEN 

C  ESTIMATE  POINT  TARGET  PATTERN  EFFECTIVENESS 

CALL  PTE3T  (1.NUMA,KASYS.nYPE.NUMR.NTARG.IAflEA) 

END# 

END# 

END# 

WRITE 
WRITE 
WRITE 
WRITE , 

flEAO(V.£RR-10)  ITEM 
“  :ITEM.LT.O.ORITEM.GTJ)  GO  TO  10 
ITEM.Ea.cj  GO  TO  100 


READ  p.\ERR-11)NnrEM 
EM# 

C  #  (NITEMXT.O)  00  TO  1 1 
ENOtF 

#  (ITEMEQ.1J  NLWUUMTEM 

#  ITEM.Eaa  NTARTWNITEM 

#  ITEU.EaS  UU&UNITEM 

#  ITEM. EGA)  NUMR-NITEM 

#  ITEM.EQ.fi  ITYPE-JUTEM 
F  (iTEM.EQ.0?  DELAY J1ITEM 

13  ^JNTARSkQJ,  THEN 

rrrlo 

•RANGED 

lETAM) 

DtfWO 

IAZ-0 

tSPCHS 

END# 

#  (NTARGEO.OIJSPOrf 

r 


c 

c 


■ENTER  ITEM  NUMBER  TO  CHANGE  (ONE  AT  A  TIME)' 
*0.  QUIT 


11  #  (ITEM. 


|  THEN 


ENTER  UP  TO  TEN  TARGET  NUMBERS  (FILL  WITH  0)' 
11)  (IGUIOE(J)J.I.IO) 


IF  (ITE 
IFjlTE 
M.ECL7) 

WRITE 
WRITE  . 

READ  r.*. 

ELSE 

#  (ITEM.  EGA)  THEN 
WRITE, 

WRITE  i  . 
read  r.^RR-0)  ixT.rYT 
ELSE 

WRITE  P.l  ENTER  NEW  VALUE  OF  ITEM  '.ITEM 
WRITE  M 


ENTER  XT.  YT  SMOKE  AIMPOINT  (METERS)' 


(NTARG.GT.0)  THEN 

:  IARTGTB(NTARCO).EQ.OANOARTGTB(NTARG.3).EQJ3  THEN 
WRITE  P.3  TARGET  '.NTARG,'  IS  NOT  ON  TARGET  ABLE  LIST 


NTARGkO 

WRITE  P.3  PAUSE  ..  ENTER  TO  CONTINUE 


WRITE  P,3  *IXT,  IYT.  ISPO.  IAZ.  OR 
WRITE  (*.•)  IXT.IYT, ISPO.IAZ. DIR 


END# 


13  ^JF  jNUMA.EQ.0)  THEN 

IXT-0 

IYT-0 

IRANGE-0 

IETA-0 

MOVE-O 

rrsTART.tt 

ELSE 

KSYS.BSYSINUMA.1) 

KASYS-BSYS(NUMA,1F10 
F  (KSYS.LE.10)  THEN 

WRITE  ^-.3  'SLUE  'JUJMA.'  IS  NOT  AN  ARTILLERY  UNTP 
WRITE  p.3  PAUSE  „  ENTER  TO  CONTMUE 


THEN 

TILLERY  UNIT.NUMA.-  IS  NOT  AVAILABLE 


GO 

END# 


#  IBAVUNUMA).NE.1I 
WRITE  P.3  BLUE  AH1 
NUMA-0 


WRITE  C.3  PAUSE  ENTER  TO  CONTINUE 
READP.3 
GO  TO  13 
END# 

UUUNINTIBXYA 
lYAJJMTlf  ‘ 

MOVE-# 


YT(BXYA(NUMA.H*1000J 

mSXYAlNUMAjj'IOOOj 
-ISPOB(NUMA) 

C  WRITE  P.3  ‘IXA.  IYA,  MOVE 

C  WRITE  P.3  IXA. IYA. MOVE 

#(IMOVE.GT.O)  then 
itstart^o 
ELSE 

ITSTART.lt 

END# 

END# 

14  |x#^(TYPE.EQ.O)  THEN 

IYT.0 
IRANGE-0 
IETA-0 
MILTYPE-0 
IRMAX-0 
ITOf  MAX-0 
ELSE 

IF  JKSYS.NE.0)  THEN 
MAXTYPE-0 

#  (NRARTBINUMA.1  .QT.O)  MAXTYPE-1 

#  (NRARTBiNUMAX  .GT.O  MAXTYPE-3 

#  MRARTB  NUMA.3  .GTO  MAXTYPE-3 

#  (NRARTB  NUMA.4  .GT.O  MAXTYPE-4 

#  (NRARTBlNUMAt  .GT.0  MAXTYPE-t 
IF  (ITYPE.GT.MAXWPE)  THEN 

WRITE  P.3  710  AMMO  AVA1ABLE  FOR  TYPE  '.[TYPE 
ITYPE-0 

WRITE  P.3  PAUSE  -  ENTER  TO  CONTINUE 
READP.3 
GO  TO  14 
END# 

KASYS-I8SYS(NUMA1)-10 
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IS 


IS 


c 

c 

c 

0 


MLTYPE-IAFAF8(KA3Y3,ITYPE) 

FJULTYPS.EO.  1  .AN0JWTaT8OTARa8.Ea.ffl  THEN 

wrinEr-i  target  \ntarg.- is  nottargetable  with  a  mxl 

i  PROJECTILE,  RESELECT  PROJECTILE  TYPE1 
ifypE-o 

WRITE  (*,*)  'PAUSE  „  ENTER  TO  CONTINUE1 
READ  (*.T 
00  TO  14 
ENOS 

nMAX-IARNQ80MSYS.ITYPE.il 

IT0FMAX-IARNGB(KASYSJTYPE.2) 

WRITE  (*.•)  HMAX  fTOFMAX 
WRITE  M  nUAX.ITOFMAX 

IF  (IATYPS(KASYS.ITYPE]£Q.3)  NTARG--1 

ENOF 
ENDF 

F  (HUM  tiGT.O.AND.ITYPE.NE.OAND.NUMJLNE.0)  THEN 
MAXRN08>NRARTB(NUMA.ITYPE) 

F  (NUMROT.MAXR NOS)  THEN 
WRITE  (*.*)  'INSUFFICIENT  AMMO  TO  FIX  REQUEST ' 

WRITE  M  -MAX  AVAILABLE  OF  THIS  TYPE ' MAXRNOS 
WRITE  M  -RESELECT  NUMBER  OF  ROUNDS  TO  FIRE1 
NUMR-0 

WRITE  <\*>  PAUSE  ...  ENTER  TO  CONTINUE1 
READ  t\*l 
QO  TO  IS 
ENOF 

ISCOOT«SSCOOTB(KASYS,l) 

MAXSCOOT-lSCOOTB(KA3Y&2) 

F  (NUMR.QT M AXSCOOT AND .  ISCOQT  .EQ.  1 1  THEN 
WRITE  (V)  THIS  SYSTEM  SHOOTS  ANO  SCOOTS ' 

WRITE  f  .*)  -MAX  «  ROUNDS  EACH  MISSION  MAX  SCOOT 
WRITE  M  'RESELECT  NUMBER  OF  ROUNDS  TO  F«E' 

NUMR-Q 

WRITE  f.*)  PAUSE  ...  ENTER  TO  CONTINUE' 

READ  (V) 

GOTO  15 
ENDF 
ELSE 
NUMR-0 
ENDF. 

F  (IOELAYME.O)  THEN 

F  (OELAYXT.ITSTART)  THEN 

VWITE  r.*l  -DELAY  FIRING  TIME  IS  LESS  THAN  MINIMUM- 
WRITE  V J  -SETUP  TIME  ._  DELAY  TIME  SET  TO  0 
WRITE  ('.1 
DELAY-0 

WRITE  <*.*)  PAUSE  -  ENTER  TO  CONTINUE- 
READ  (y) 

ENDF 
ENOF 

LOOP  2 

F  fNTAflaNE.aANO.NUMANE.OJLND.ITYPENE.O)THEN 
CALCULATE  ESTIMATED  TIME  OF  ARRIVAL  ANO  FINAL  RANGE  TO 
THE  TARGET 

F  TARGET  IS  MOVING.  SOLVE  QUADRATIC  FORMULA  FOR  ESTIMATED 
POSITION  AND  ETA 


*"2)"5) 


IF  (ISPD.EQ.O)  THEN 

«ANGE-NINT(((R£AL(IXT>R£AL(IXA))**2*<REAL(IYT)XTEAL<IYA)) 


CTA-NWTlfREALjWANGE^TEAUiRMAXD-REAmTOFMAX)) 
WRlJj  (V) -TARGET^AR^OOUT of  RANGE  of  THIS  1 


SUNIT/AMMUNIT1&? PAIR  -  SELECT , 

IRANGE-0 
ETA-0 
GO  TO  10 
ELSE 

ETA.IETA+ITSTART 

^IFJOELAY.GT.ITSTART)  ETA-ETA*(IDELAY.|TSTART) 
ELSE 

XO-REAL(IXT) 

YO-REALtlYT) 

XA-REAUIXA) 

1?A 


ARTILLERY 


YA-HEALl 

V-REALIIS 

CK-REALi 


3PD)*1000/Jt00. 

.(ITOFMAXUREAUIRMAX) 

)SiREAUIOlR)/liO.*PQ 


COST-COSIREALIIC... , _ 

SINT.SIN(REAL(IDIRV180.*PI) 

ITGO-ITSTART 
F  (IDELAY.GT.ITSTART)  ITG0-ITG0+(IDELAY-IT3TART) 

WRITE  (•,*)  'IT GO- 
WRITE  {'.•)  ITGO 

XO-WHV-COST'REALIITGO) 

yo-yo- vsiNrREAyrroo) 


WHITE 

WRITE 


(V)  •XO.YOJCA.YA- 
M  XO.  YO.  XA.  YA 


A-V*VC0ST*ABS(C03'nXK*CK-V*VSlNT*A8S(SINT)*CK*CK-1. 

B-2.*{XO-XA)'V*COST*CX-2.*(YO-YA)-V*SNT’CX 

C-|X0-X^"2-(Y0-YA)**2 


R1-(-aHB-BX.-A-CT5V?.-A) 

R2-i-B-(B-B-L-A-Cr.SytS.A| 


C  WRITE  r.T  RI.R2 

C  WRITE  M  R1.R2 

F  (H1.QE.R2)  RANGE-R1 
FjR20T.RlJ  RANGE-R2 

WRITE  f.*)  'TARGET  'HTARG.-  IS  MOVNG  OUT  OF  RANGE  OF  THIS 
•ARTILLERY  UNIT/AMM UNITON  PAIR  -  SELECT  AGAIN 
RANGE-0 
ETA-Q 
GO  TO  10 
ELSE 

IXT-NINT(XO*VCOSrREAL(£TA» 

IYT^INT(YO*VSINT-REAL(lETA)) 

CTA-ETAfITGO 

ENOF 

ENOF 

C  END  LOOP  2 

ENOF 
GOTO  10 

100  CONTINUE 

C  CHECK  TO  SEE  THAT  ALL  REQUIRED  MISSION  OATA  FELDS  ARE  FILLED 
C  ANO  THEN  ENTER  MISSION  INTO  BACKLOG 

IF  (NUMA.EQ.O.OR.NTARG.EO.O.ORNUMR.EQAORrrYPEEQX))  THEN 

101  WRITE  (V)  'MtSSON  FELDS  INCOMPLETE- 
WRITE  (‘.I  '1  -  RETURN  TO  INPUT  MENU 
WRITE  M  *0  -  CANCEL  FIRE  MISSION 
WRITE  ('A 

READ  jVxRR- 1011  (STOP 
IF  (ISTOP.EQ.1)  GO  TO  10 
F  (ISTOP.ECLO  GO  TO  200 
GO  TO  101 
ENOF 


102 


F  (VtfA^KASYS.nYPEl.EQ.1ANO.IGUIOEgjmO|fTHeN 


CTILE  TARGET  LIST 


WRITE  (*.*)  'NO  TARGET  IN  GUIDED  .  . 

WRITE  I*,-)  '1  -  RETURN  TO  INPUT  MENU- 
WRITE  M  -o  -  cancel  fire  mission 
WRITE  hi 

READ  lj*ERR-1Q2}  STOP 
IF  (ISTOP.EQ.1)  GO  TO  10 
F  ISTOP.ECLO  GO  TO  200 
GO  TO  102 
ENDF 

ENTER  DATA  WTO  FIRE  MISSION  LOG 
K-NUMNEW 
NFMISI1)-K 
MFUBIK.1J-NUMA 
MFUB0C2WNUMR 
MFUB(K,3)-ITYPE 
MFUBoCAMAREA 
MFUBjK.Sl.IETA 
XYFUBOL  1)-REAL(IXTyi00a 
XYFUB(K2WTEAL  iytViooo. 

DO  103  IK-1.10 

MILAB<K.IK).IGUCe<IK) 

BSAINUMA.1J-0 
ISPDB(NUMA)-0 
BAVUNUMAHO 

C  SET  UP  SHOOT  ANO  SCOOT  INFO  ANO  RE-AVALABLITY  TIME  FOR 

C  THIS  BLUE  ARTILLERY  UNIT 
F  jlSCOOT.EQ.l)  THEN 
ITSC(NUMA,1)-ITGO*aO-ITIME 
ITAVL(NUMA,t)-ITGO»6CklSCOOTB<KASYSA)-rriME 
ELSE 

ITSC(NUMA.1)-0 

ITAVL(NUMA.1).ITGO-80*ISCOOTB(KASYSA>-mME 

ENOF 

C  EXPEND  APPROPRIATE  NUMBER  OF  ROUNDS  PER  TUBE 
NRARTB(NUMA.rnrPE)-NRARTB<NUMA.ITYPEH«JMR 


103 


GO  TO  5 


ELSE 


(ELSE)  LOOP  1 


REO 

NUMNEW.NFMIS(2H1 


WRITE  p^AB.C 


WRITE  (V)  A.  AC 


REO' 

'NEW  MISSION  NUMBER  '.NUMNEW 
'I  -  ARTILLERY  UNIT  •  '.NUMA 
1  ~  TARGET  UNIT  $  \NTARG 
. .  -PROJECTED  TARGET  POSITION:  XT  (Ml -.IXT.-  YT  '.IYT 
.-)  -3  -  BEATEN  AREA  (M*2)  OR  BASKET  AREA'.IAREA 
•4  -  #  ROUNDS  PER  TUBE  LNUMR 
. .  -5  -  ROUND  TYPE  *  '.HYPE 
'A  -6  -  DELAY  FIRING  TIME  '.DELAY 
"E.TA  (Hd  -  META 
TARGETRANQE  -  '.FLANGE 
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F  AM.TYPE.EQ.>)  THEN 

WRITE  C.7  7  -  GLIDED  PROJECTILE  TARGET  LIST 
WRITf  hi  (<GUI0E(J»1.10) 


READ J*. 
GOTO: 


.7 

313 


ENOF 


)  THEN 


F  (NTARQEQ.-1)  1 
WRITE  c.7  «  -  SMOKE  ROUNDS  AJMPOINT  XT.VT 
WRITE  r,7  IXT.IYT 
WRITE  C.7 
ENOF 


C 

C 


GOTO 
ENOIF 

BUUNWT(RXYA(NUUA.!|‘1Q00J 

fYA-NiNTJRXYA(NUM)L2)*1000J 

IMOVE-tSPOR(NUMA) 

WRITE  r.7  "IXA.  IYA.  WOVE 
WRITE  r.7  IXA, IYA,  WOVE 


f  (NUMA.GT.OJkNOJJTAflaaT.O-ANO.NUUR.GT.O>ND.ITYPE.GT^)  THEN 
KSYS-IRSYS(NUMA,1) 

IF  (KSYS.GT.IOTHEN 


FC.IATVPR(KASYS,nYPE) 

FJFC.E021  THEN 
E  ST  WATT 

CALL  FCEST  (2.NUMAJCASYS. ITYPE. NUMR.NTAHG.IAREA) 


FlFC-EO^T  _ 

KATE  AREA  TARGET  PATTERN  EFFECTIVENESS 


ENOIF 
ENOIF 
WRITE  ( 
WRITE  ( 
WRITE) 
WRITE 


ENTER  ITEM  NUMBER  TO  CHANGE  {ONE  AT  A  TIME)' 
7  *0  .  QUIT 


READ  r."!ERR'IO)JTEM 
*  (ITEM.LTJJ.OftITEU.GTJ)  GO  TO  10 


311 


308 


I  ENTER  UP  TO  TEN  TARGET  NUMBERS  (FILL  WITH  0)' 


ERR-311)  NITEM 


312 


313 


IF  IITEA _ 

F  (ITEM.EQ.0I  GO  TO  3100 
IF  (ITEM.Ea71  THEN 
WRITE  (*.7  r  ~ 

WRITE  r.7 

READ  (VERR-311)  0GUDE(J)J-1.tO) 

IF  (ITEMEa.0)  THEN 

WRITE  r.7  ENTER  XT.  YT  SMOKE  AIMPOINT  (METERS)' 

WRITE  C.7 

READ  r.*iRR-30Q)  IXT.IYT 
ELSE 

WRITE  r.7  ENTER  NEW  VALUE  OF  ITEM  '.ITEM 
WRITE  M 
READ  r.\ER 

ENOIF 

IF  (NITEM.LT.0)  GO  TO  311 
ENOIF 

IFIITEME0.1  NUMA-NITEM 
F  ITEM. ECU  NTAR&NITEM 
F  ITEM.EQ.3  IAREA.NITEM 
F  ITEM.  EGA  NUMR-NITEM 
F  ITEMEQ.S)  ITYPE-NITEM 
F  i  ITEM.EQ.8  IOELAY-NITEM 
F  (NTARG.EO.O)  THEN 
IXT-0 
IYT-0 
RANGE-0 
IETA-0 
OIFUO 
IA2-0 
ISPO-O 
ENDF 

F  MTARG.EO.-1)  ISPO-O 
F  (NTARG.GT.m  THEN 

IF  (ARTGTR(NTARG11).EO.OAM).ARTGTR(NTAflG2LEaO)  THEN 
WRITE  r.7  TARGET 'NTARG,'  IS  NOT  ON  TARGET  ABLE  LIST 
NTARG-0 

WRITE  C.7  -PAUSE  ...  ENTER  TO  CONTINUE 
READ  J*  ,7 
GO  TO  312 
ENOF 

IXT-NINTIBXYA(NTARG,1)*10Q0.) 

lYr-NINTfflXYAfNTAHGJpOOO. 

ISPO-ISPDBINTARG) 

IAZ-IBSAINTARGJ) 

AZIN-REALIIAZ) 

CALL  FDIR(XmAZOUT) 

IO«-NINT(AZOUT) 

WRITE  r.7  'IXT.  IYT,  ISPD.  lAi  DIR" 

WRITE  hi  IXT.IYT.ISPO.IAZ.IOIR 

ENOF 

F  (NUMA.EO.O)  THEN 
KSYS-0 
IXT-0 
IYT-0 
RANGE -0 
IETA-0 
WOVE-O 
rrSTAHT-18 
ELSE 

KSYS-IRSYS(NUMA.1) 

KASYS-«SY&NUMA,1h  10 
F  IKSYS.LE.10i  THEN 
WRITE  r.TREO  V 
NUMA-0 

WRITE  r.7  "PAUSE ...  ENTER  TO  CONTINUE 
READr.7 
GO  TO  313 
ENDF 

F  («AVL(NUM  ALNE.  1)  THEN 
WRITE  C.7  "RED  ARTILLERY 

NUMA-0 

WRITE  C.7  "PAUSE  ...  ENTER  TO  CONTINUE 


-IARNGRIKASYS.ITYPE.1) 
AX-IARNGRlKASYS.ITYPE.35 
ite  r.7  "RMAX.  ITOFMAX" 


".NUMA,"  IS  NOT  AN  ARTILLERY  UNIT 


UNIT.NUMA."  IS  NOT  AVAILABLE 


F  (WOVE.GT.O)  THEN 
ITSTART-SO 
ELSE 

ITSTART-1S 
ENOF 
ENOF 

314  F  (ITYPE.EQ.0)  THEN 
IXT— 0 
IYT-0 
RANGE-0 
IETA-0 
MILTYPE-0 
RMAX-0 
ITOF  MAX-0 

ELSE 

F  (KSYS.NE.O)  THEN 
MAX  TYPE-0 

F  (NRARTR(NUMA.1  .GT.O)  MAXTYPE-1 
F  (NRARTRINUMAj  .QT.0  MAXTYPE-2 
F  NRARTR  NUMA.3  .GT.O  MAXTYPE-3 
F  NRARTWNUMA.4.GT.0  MAXTYPE-4 
F  NRARTRINUMA.5  .GT.O  MAXTYPE-5 
IF  (ITYPE.GT.MAX7YPE)  THEN 
WRITER". 7  "NO  AMMO  AVAILABLE  FOR  TYPE  '.ITYPE 

WRITE  r.7  "PAUSE  ...  ENTER  TO  CONTINUE 
READr.7 
GO  TO  314 
ENOF 

KASYS-RSYS(NUMA.1>10 
MILTYPE-IAFAFR(KASY3.ITYPE) 

F  (MIL TYPE. EQ1-ANO-AflTGTR(NTARQ,2)  EQ.O)  THEN 
WRITE  r.7  ‘TARGET  ".NTARG."  IS  NOT  TARGETABlE  WITH  A  M+L 
4 PROJECTILE.  RESELECT  PROJECTILE  TYPE 
ITYPE-0 

WRITE  r.7  PAUSE  _  ENTER  TO  CONTINUE 
READT.7 
GO  TO  314 
ENOF 
IRMAX.U 
ITOFMAX- V 

C  WRITE  r.7  T  . 

C  WRITE  hi  RMAX  ITOFMAX 

F  (IATYPR(KASYS.nYPE)EQ.3)  NTARG- 1 

ENOF 

ENOF 

315  FJNUMR.GT .O.ANO.ITYPE.NE  .0 ANO.NUM A.NE  .0)  THEN 
MAXHNDS-NRARTR(  NUMA,  ITYPE) 

F  ( NUMR.GT.M AYR  NDSI  THEN 
WRITE  C.7  WSUFFIcfeNT  AMMO  TO  FXL  REQUEST " 

WRITE  r.7  "MAX  AVAILABLE  OF  THIS  TYPE  '.MAXRNDS 
WRITE  r.7  "RESELECT  NUMBER  OF  ROUNDS  TO  FIRE" 

NUMR-0 

WRITE  r.7  PAUSE  ...  ENTER  TO  CONTINUE" 

READr.7 

GO  TO  315 
ENDF 

ISCOOT-ISCOOTRIKASYS.1) 

MAXSCOOT.ISCOOTRIKASYS.21 
F  (NUUR.GT.M  AXSCOOT ANQ.ISCOOT.EQ.1)  THEN 
WRITE  C.7  "THIS  SYSTEM  SHOOTS  ANO  SCOOTS  * 

WRITE  C.7  MAX  •  ROUNDS  EACH  MISSION  '.MAX SCOOT 
WRITE  r.1  "RESELECT  NUMBER  OF  ROUNDS  TO  FIRE" 

NUMR-0 

WRITE  r.7  PAUSE  _  ENTER  TO  CONTINUE" 

«ADf.7 
GO  TO  315 
ENDF 
ELSE 
NUMR-0 
ENOF 

316  FJIDELAY.NE.9)  THEN 

F  (DELAY  .LT.ITSTART7  THEN 

WRITE  r.7  "OELAY  FIRING  TIME  IS  LESS  THAN  MINIMUM" 

WRITE  *.1  "SETUP  TIME  ...  OEUY  TIME  SET  TO  0 

WRITE  M 

DELAY-0 

WRITE  C.7  PAUSE  ...  ENTER  TO  CONTINUE" 

READC.7 

ENOF 

ENOIF 

C  LOOP  2 

F  (NTARG.NE.O.AND.NUMA.NE.O.ANQ.tTYPE.NE.0)  THEN 
C  CALCULATE  ESTIMATED  TIME  OF  ARRIVAL  ANO  FINAL  RANGE  TO 
C  THE  TARGET 

C  F  TARGET  IS  MOVING.  SOLVE  QUADRATIC  FORMULA  FOR  ESTIMATED 
C  POSITION  AND  ETA. 

IF  (ISPO.EO.pi  THEN 

IRANGE-NINT(((REAL(IXT)-REAL{1XA))~2HREAL(IYT) -READ  IYA)) 
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KTA^MWT^RSAURANQSIREALIRMAXII-REALIITOf  MAX)) 

OUT  OF  RANGE  OF  THIS  ARTLLERY 


4UNIT/AMMUNIT 

RANGE-0 
IETA-0 
00  TO  10 
ELSE 

ETA-ETA.  rTST  ART 

^fjOELAY.QT.ITSTARTI  CTA-CTA.(C£LAY-ITSTART) 
ELS* 

yoIrealIiyt] 

xa-realixai 

ya-realIiyaS 

v-AEAuiSRn'iooovoeoa 

CK-R£AL(ITOFMAX)/REAL(IRMAX) 

cost-cosireali  oifly  t  arpi) 

8WT-3I^REAL[IOlRy  1  AO/Pt) 

F  (lOELAV.QT.iTSTART)  ITQO-ITQO.(IDEtAY-rTSTART) 


wRtTi  W  rrao 

XO-XD.V*COST*REAL(rTGO) 
YCKYO*  VSINT'REAL(ITQO) 

WRITE  (*.•)  'XO.YOJCA.YA' 

WRITE  M  W>.  YOl  XA.  YA 


A-\nrC08rAS%C08T1'CK*CK.VVSINT*A8S(SINT)-CKXX- 1. 

8-i,(xo-xAi-vcosra<^.-(Yo-YA|-vswrcx 

C-(XO-XA)“4.(YO-YAJ"2 

WRITE  (V)  'A.B.C 
WRITE  (*•*)  A.B.C 

R1-(-BHB,M.*A*Cr.5y(2.*A) 

R2-<*(B*B-«.*A*Cr.Sy(4.*A| 

WRITE  P.1  HI 
WRITE  (7)  R1H2 

IF  (Rl  .GE.RZ)  RANGE  .HI 
IF  jR2.QTRllRANQE.na 
RANGE -NlNTrRANGE) 

ETA.NINT(inEAL(IRANQEYREAMRMAX))*REAL(ITOFMAX)) 


•ARTILLERY 

RANOE-O 
CTA-0 
GO  TO  10 
ELSE 

IXT.NINTfXO.\rCOSrREAL(!ETA)) 
lYT.NWTjYO.VSWT'REALflETA)) 


1  MOVING  OUT  OF  RANGE  OF  THIS 
~T  AGAIN 


ETA.ETA.ITQO 

ENDIF 

ENOIF 

ENOE 
GO  TO  10 


END  LOOP  2 


3100  CONTINUE 


3101 


CHECK  TO  SEE  THAT  ALL  REQUHEO  MISSION  OATA  FELDS  ARE  FILLED 
AND  THEN  ENTER  MISSION  INTO  BACKLOG 

IF  (NUMA.EQ.O.OR.NTARG.EQ.O.OR.NUMFLEQ.O.OR.fTYPE.EQ.0)  THEN 
WRITE  (VI  "MISSION  FIELDS  INCOMPLETE- 
WRITE  CO  -1  -  RETURN  TO  INPUT  MENU- 
WRITE  V)  -0  -  CANCEL  FIRE  MISSION" 

WRITE  C.J 

READ  C.  xRR-3101)  STOP 
IF  (ISTOP.EQ.il  GO  TO  10 
F  (ISTOP.EQ.O  GO  TO  200 
GO  TO  3101 
ENOF 


3102 


IF  (IAFAFR(KASY3,ITYPE 
WRITE  (Vi  "NO  TARGET  IN  f 


I.EQ.1  AND. GUIDE!  1LEQ.0)  THEN 
IIOEO  PROJECTILE  TARGET  LIST 


•1  -  RETURN  TO  INPUT  MENU 
•0  -  CANCEL  FIRE  MISSION" 

_ lRffa310a>  STOP 

IF  (IS T0P.EQ.1I  GO  TO  10 
F  (ISTOP.EQ.O)  GO  TO  200 
GO  TO  3102 
ENOIF 

ENTER  OATA  WTO  FRE  MISSION  LOG 
K.NUMNEW 
NFMIS(2)-K 

MFURjluUNUMR 
MFUR(<$.ITYPE 
MFUR(K  ,4  b  (AREA 
MFUfttKlSWlETA 
XYFUR(K.1)-REAL(DnVl000. 


.  ITGO^O.  ISCOOTR(KASYS.4|*mME 


XYFUR«L2)J«EAL<rYTV1000. 

DO  3109  IK-1,10 
3103  MILM<K.K)^auOE(W) 

^WYNUMA^ 

C  SET  UP  SHOOT  ANO  SCOOT  WFO  ANO  RE-AVALABLITY  TIME  FOR 
C  THIS  RED  ARTILLERY  UNIT 
F  (ISCOOT.EQ.1)  THEN 
ITSC(NUMA.ai.lTGO.aO.ITIME 

ITAVLlNUMAi)-l~'  '  ' 

ELSE 

ITSC(NLMUL2M 

ITAvL(NUMA^).ITQO.60.ISCOOTR|KASYS,4HrriME 
ENOIF 

C  EXPEND  APPROPRIATE  NUMBER  OF  ROUNDS  PER  TUBE 
NRARTR<NUMA.ITYPE)-NfiAflTR(NUMA.nYPE)-NUMR 

GO  TO  S 

C 

ENOF 

200  CONTINUE 

RETURN 
END 


END  LOOP  1 


SUBROUT  WE  FREMSH  (ITWE.DTTME) 

RESOLVES  CURRENT  BACKLOG  OF  ARTILLERY  W-ORECT  FRE  MISSIONS 

CDMMONIMOVE/8XYA(200atfWYAC20a2>.B8A<2D0.2).RSA<2C0.2>. 

A  L1BM.L2ML3MA1RM 

COMMONlFORCE^£R(200)HHCRffl0qBUNrrj300).RUNIT(200). 

A  I8SYS(200^)1IRSYS(2002).L1BF.L2F L3F.LlRF.Na, NR 

COMMON/ AHTTGT/ARTGTB(200.2).AflTGTR  (200 .2). rTia.ITLfl 
COMMON/AMISH/NFMtS(2.MFU8(200lS)IMFURCH)Q,5),XYFUB(200J2). 

A  XYFUR(200l2LMLAB(200,1G|JMAAR(200.10) 

COMMONIARTYOATJNBFANRFAJBANAME(10)RANAME(iqiHAMB(iq>IAMR(10) 


COMMONIAAVAAyBAVU200».RAVL(200)NRARTB(20<L3»NRARTR<20aS) 

COUMON/SCOOT/1TSC(200,2).ITAVL(2ixL2) 


£| ANAMERANAME 


AE.RFN 

CHARACTER*!*  BHERRHIERHI 
CHARACTERS*  BUNITRUNIT 

INTEGER  ARTGTBARTGTR 

PU3.141SB 

00  10  IT-1 .200 
ITARGB(tT)«0 
10  ITARGR(ITH) 

C  RESOLVE  BLUE  FRE  MISSIONS 
DO  500  N.1,NFMIS(1) 

F  <MFUB(N,1).ECL0)  GO  TO  900 
IETA.MFUB(N.5> 

F  (IETA.GT.0)  THEN 
C  NOT  ARRIVED  ON  TARGET  YET 
MFU8(N,5)-MFU8(N,5)-  ©TIME 
GO  TO  500 

else 

C  THIS  MISSION  HAS  COME  DUE 
NUMA-MFUSiN.1) 

XA-BXYA(NUMA,1)*1000. 

YA-aXYAjNLMAJ2)*1000. 

KASYS-«SYS(NUMA.1>-10 

NTUBES-IBSYS(NUAUL2) 

NUMR-MFUB(Nj2) 

rTYPE-MFUB(N,3) 

MILTYPE-0 

F  ( IAFAF B(KASYS. ITYPE).EQ.1 )  MILTYPE-1 
lATYPE.IATYPB(KASYSJTYPE) 

F  (MILTYPE.Ea.1J  IATYPE-0 
uaSrng-iarngbikasys.itype.i) 
MAXCEP-IARNGBtKASYSjITYPEJ) 
NSUBS-lARNGBIKASYS.lfYPEA) 

F  (NSUBS.LE.O)  NSUS3-1 

PAiAREA-REAL(IARNG8<KASYS,ITYPE,5)) 

BEATAREA-REAL(MFUB(N,*)) 

XT-XYFUBffLII'1000. 

YT  -XYFUB(fL2)*1000. 

C  ADJUST  IMPACT  POINT  BASED  ON  CEP  ANO  RANOOM  NUMBER 
RANGE.((XT-XA)**2.{YT-YA)"2)*'.5 
CEPM-REAL(MAXCEP)*RANG£REAL|MAXRNO) 

RDEP-iTTCSPM 

SIGRD-RDEP/S745 
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ooo 


CAUL  CEP  (SIGMA) 

SK3flO>8IGR(FsiGMA 
XT.XT.SIGRD 
YT-YT-SK1RO 
ACCR-PI’SIGOTSIGRO 
If  (B£AT/«>UjJ5cEPIBEATAR£A-AC£P 

IF  {BEATAREA.LT.PATAREA)  T - 

RADIUS-<BEATAHEA/Pir.5 


)  BEATAREA-PATAREA 


103 


WRITE 


ACEP.PATAREJLBEATAREARADIUS 


□O  103  IK.  1.10 
K3UI0C(IK)-MILAS<N.tK) 


IF  (IATYPE.EQJ)  THEN 

CREATE  ARTILLERY  SMOKE  CcOUO 

RAOIUS-ARTPKBO  .KASYS.ITYPE) 

A1-PTRADS S’RADIUS 
AT-AI'NU*:fl*NTUBES 
IF  (BEATAREA.QE.AT)  THEN 
RADIUS- (AT/P  l)".S 
ELSE 

RADAJS-(BEATAREA|PI)".S 

TSMK-ARTPKB(2J<A3YS.ITYPEI 

CAa  ARTSMOKE  (ITIME.XT.YT.RADIUS.TSMK) 

ENOF 


IF JMETYPE.EO.il  THEN 
ATE  MAN-IN-THE-LOOP  TERMINAL  GUIDANCE  ON  DESIGNATED 


110 


115 

C 


^  _ I  THEN_ 

C  EVALUATE  MAN-IN-THE-l  ' 

C  TARGET  LIST 
C  LISTEO  TARGETS  MUST  BE  M  THE  BASKET  AREA  PLUS  CEP  ERROR 
C  IF  THESE  TARGETS  ARE  NO  LONGER  THERE.  ANY  SHORTFALL  WILL 
C  BE  MADE  UP  BY  FINOING  ANY  OTHER  ENEMY  TARGETS  IN  AREA. 

C  FINO  ALL  RED  TARGETS  M  BASKET  AREA 
DO  110IT.1AIR 

IF  (WSYS(IT  ,2).LE.O)  GO  TO  110 
XR-RXYA(iT,1)*1000. 

YR.RXY/fllTij*100a 
R-«XR-XTI"2-(YR.YT)“2)"S 
IFjRLE- RADIUS!  THEN 

C  THIS  RED  VEHICLE  CAN  BE  TARGETED 
ITARGR(IT).1 
ENOIF 
CONTINUE 

COMPARE  TARGET  LIST  AGAINST  AVAILABLE  TARGETS 
NSHOTS-NUMR*NTUBES*NSUBS 

do  i»  it-uo 

IF  NO  SHOTS  LEFT.  SKIP  IT 

FJNSHOTS.LE.O)  GO  TO  120 
NT-GUIOEin) 

C  IF  NO  TARGET  ON  LIST.  SKIP  IT 
F  (NT.EQ.O)  GO  TO  120 
C  IF  ALREADY  KILLED  SKIP  IT 

IF  <«SYS(NT.2).LE.O)  THEN 
IGUIOE(IT)-0 
GOTO  126 
ENOF 

C  SEE  F  THIS  TARGET  IS  IN  BASKET  ANO  THEN  SHOOT  IT 
F  (ITARGR(NT).EO.O)  THEN 
IGUIDE(ITW> 

GO  TO  126 
ENOF 

C  SHOOT  IT 

JSYS.WSYSfNT.1) 

PKIT-ARTPKB(JSYS.KASYS.nYPE) 

F  (JSYS.QT.1C0  THEN 
C  COUNTER-BATTERY  SITUATION 
JTUBES-IRSYS(NT^) 

JASYS-JSYS-10 

OTUBES-REAL(IARTUB£(JASYS)) 

NK  ILL  3-0 

CALL  COUNTERB  (NKXJ.SJTU8ES.DTUBES.RADIUS.NSHOTS.PKIT, 
AMILTYPE.IATYPE) 

DO  IIS  INK-INKILLS 

WRITE  (10.0  RED  '.NT.'  KILLED  BY  BLUE  AH  TILERY  \NUMA, 

A  '  M-FL  AMMO  TYPE  '.ITYPE 

CAU  WARTYJITIMEANT.1.NUMA.ITYPE) 

CALL  OUTPUTS  (ITIMEZNT.O) 

116  CONTINUE 

WSYSfNTSJ-IRSYSCWr JB-WXLS 

ITARGR(lIrr)-0 
ELSE 


F  (PROB.LEPKfT)  THEN 
TARGET  KILLED 

WRITE  (10.*)  •RED', NT:  KILLED  BY  BLUE  ARTILLERY  'NUMA. 

'  M-K.  AMMO  TYPt  '.ITYPE 
WSYSfNT^-WSYSfNTii-l 
F  (WSYSfVT.SJ.LT.IO  lflSYS(NTS>-0 
REMOVE  FROM  TARGET  LIST.  SINCE  KILLED 


(ITIMEANT.l.NUMA,  ITYPE) 


CAa  OUTPUTS  (ITIMEL.NT.OI 
ENOF 

NSHOTS-N3HOTS-1 

ENOIF 

120  CONTINUE 


F  ANY  SHOTS  REMAIN.  GO  DOWN  TARGE  TABLE  LIST  ANO  SHOOT  AT  THEM 
F  (NSHOTS.GE.1)  THEN 
DO  1XIT.1.NR 
F  (NUM.EQ.iqi  GO  TO  IX 
F  NUM.EO.NSHOTS)  GO  TO  IX 
F  ITARGR(IT).GTJ>)  THEN 
NUM-NUUtl 
IGUIOE(NUM).rr 
ENOF 

IX  CONTINUE 
ENOF 

F  (NUM.GT.O)  GO  TO  115 
ENOF 

IF  (1ATYPE.EQ.1)  THEN 

C  EVALUATE  POINT  TARGET  MUNITIONS/SUBMUNmONS 

C  THESE  ARE  FIRE-AN&FORGET  TERMINALLY  GUIDED 

C  PROJECTILES/SUBMUNITIONS  SUCH  AS  SAQARM  OR  GUIDED  MORTAR 
C  ROUNOS 

C  FINO  ALL  VEHICLES  IN  THE  BASKET  AREA  ANO  EVALUATE  THEIR 
C  PROBABILITIES  OF  BEING  TARGETED  AND  KILLED 
C  REMEMBER  ...  UNLESS  THERE  IS  FF.  WHICH  THERE  ISN'T,  FRIENDLY 
C  VEHICLES  MAY  ALSO  BE  TARGETED.  SO  FIND  Aa  POTENTIAL  VEHICLES 
C  IN  BASKED  AREA  INCLUOING  KILLED  VEHICLES,  SINCE  HOW  THE 

C  HECK  WILL  A  MUNITION  LIKE  THIS  KNOW  THE  DIFFERENCE  T 
C  THE  FINER  POINTS  OF  THESE  ISSUES  WLL  HAVE  TO  BE  UOOELEO  LATER. 

C  FOR  NOW.  THESE  FAF  GUIDED  PROJECTILES  ARE  BASIC AaY  DUMB. 

C 

NTR-0 

C  FINO  Aa  RED  AND  BLUE  TARGETS  M  BASKET  AREA  EVEN  DEAD  ONES 
DO  210  IT-1NR 
XR-RXY/VIT.IJ'IOOa 
YR-RXV/ulTJB'1000. 

R-<(XR-XT)“2*(>R-YT)“2)"-5 

F  (FILE .RADIUS)  THEN 

C  THIS  RED  VEHICLE  CAN  BE  TARGETED 
ITARGRfjD-l 
NTR-NTR-1 
ENOF 

210  CONTINUE 
NTB-0 

do  211  rr-iNB 
XR-BXYA(IT,1 1*1000. 

YR^XV/UITij'IOOa 
R-(()(R-XT)“2*(YR-YT)-2)-S 
F  (RLE. RADIUS)  THEN 

C  THIS  BLUE  VEHICLE  CAN  BE  TARGETED 
ITARGB(IT)-1 
NTB-NTB-1 
ENOF 

211  CONTINUE 
NTOTAL-NTR+NTB 

F  (NTOTALLE.O)  GO  TO  300 

C  FINO  EXPECTED  NUMBER  OF  SHOTS  PER  AVAILABLE  TARGET 
NSHOTS-NUMR'NTUBES'NSUBS 
S£ACH-REAL(NSHQTSVREAWNT0TAL1 
C  BASED  ON  POISSON'S  DISTRIBUTION.  FIND  THE  PROBABILITY 
C  THAT  A  VEHICLE  WILL  BE  WITHIN  RANGE  OF  AT  LEAST  ONE  SUBMUNITION 

P1-1-EXP(-SEACH) 


C  LIMIT  SHOOT  OUT  TO  NSUBS  CYCLES.  SINCE  THE  UNIFORMITY  OF 
C  THE  PATTERN  ANO  TARGET  DENSITIES  ARE  UNKNOWN. 

C  IT  IS  REASONABLE  TO  ASSUME  THAT  ANY  ONE  TARGET  WUA  BE 
C  WITHIN  THE  ATTACK  RANGE  OF  ANY  ONE  MISSILE. 

NCYC-0 

215  F  (NCYC.GT.NSUBS)  GO  TO  300 

00  220  W-1JIIR 
F  (NSHOTS.LE.O)  GO  TO  300 
F  (iTARGR(IR).Nfc.  1)  GO  TO  220 
PROB-RNDO 

F  (PR06.aT.P1)  GO  TO  220 

c  shoot  rr 

JSYS.IRSYS(IR.1) 

PKIT.ARTPIflJ<JSYS.KASYS.ITYPE) 

F  (JSYS.GT.10)  THEN 
C  COUNTER-BATTERY  SITUATION 

JTUSES-IRSYS(W^) 

JASYS-JSYS-10 

DTUBE  S-R£AL(  1ARTUBE)  JASYS)) 

NKLLS-0 

NSHOT-NSUBS 

C  WRITE  r.TCAa  COUNTERB.  NKaSJTUBES.DTUBES RADIUS. 

C  ANSHOTRKIT.MILTYPE.IATYPE' 

C  WRITE  (V)  NKiaS,JTUBES.OTUB£S.RADIUS. 

C  4NSHOT.PKIT.MILTYPE.IATYPE 

CAa  COUNTERB  (NKiLLS  JTUBES.DTUBES.RADIUS.NSHOT.PKIT. 


AMILTYPE.IATYPE) 

WRITE 
WRITE 


WRITE  NULLS' 


NKILLS 


NSHOT8-N8HOTS-<NSU83-NSHOT) 

DO  216  INK- 1, NKILLS 

WRITE  (10.*)  RED  MR.'  KLLED  BY  BLUE  ARTLLERY  '.NUMA. 
A  '  F-A-f  GUIDED  AMMO  TYPE  MTYPE 

CALL  WARTY  (IT IMEAIR.1,NUMA.lWPE) 

CALL  OUTPUT*  (ITIMEA«.0f 
21A  CONTINUE 

BSYa«A.«SYS(«A- NKILLS 
IF  j«SYS(lRJ).LT.O)  «SYS(«A-0 

PROB-RNOO 

IF  (PROB.lAJ>KlTANanSYS(ia2).GT.O)  THEN 
C  TARGET  KILLED 

WRITE  (10.1-REO  KLLED  BY  BLUE  ARTILLERY  '.NUMA. 
a  ■  f  -a-f  Guided  ammo  type  mtype 

«3YS(IRA)-IR3YS(IR^V- 1 
IF  (IRSYS(ffL2).LT.O)  IHSYS(IRA)-0 
CALL  WARTY  (ITlMEA«.'.NUMAITYPE) 

CALL  OUTPUTS  (ITIME  A«.0) 

ENOIF 

NSHOTS-NSHOTS-1 
ENOIF 
220  CONTINUE 

00221  IB-1.NB 


OTUBES-REAL(IABTUBE(JASYS)) 

NKLLS-0 
NSHOT-NSU8S 

CALL  COUNTERS  (NKLLSJTUBES.DTU8ESAA0IUSRSH0T.PKrr. 
AMILTYPE.IATYPE) 

NSHOTS-NSHOTS-(NSUBS-NSHOT) 

DO  217  INK-1, NKILLS 

WRITE  (10.*)  -BLUE ‘IB.'  KLLED  BY  BLUE  ARTILLERY  '.NUMA. 

A  '  F-A-F  GUIOCO  AMMO  TYPE  MTYPE 

CALL  WARTY  (ITIME.1.IB.1  MJMA.ITYPE) 

CALL  OUTPUTS  (ITIME.1.IB.0) 

217  CONTINUE 

IBSYSIB.SI-BSYSIIBSl-NKLLS 
IF  jBSYS(IB.2).LT.O)  IBSYS(IBS)-0 

PROB-RNOO 

IF  (PROB.ll.PKrT>ND,IBSYS(lB2).GT.O)  THEN 
C  T  iRGET  KLLED 

WRITE  (10.1  BLUE  MB.'  KILLED  BY  BLUE  ARTILLERY  '.NUMA, 

a  •  f-a-f  Guided  ammo  type  mtype 

IBSYS(IB.2)-IBSYS(IB.2H 
IF  (I8SYS(IBA).LT.&  IBSYS(IR2)-0 
CALL  WARTY  (ITIME.1.I8.1.NUMA.ITYPE) 

CAU  OUTPUTS  (ITIME. 1.18,0) 

ENOIF 

NSHOTS-NSHOTS-1 

ENOIF 

221  CONTINUE 

NCYC-NCYC.1 

IF  (NSHOTS.GT.O)  GO  TO  215 
300  CONTINUE 
ENCHF 

IF  (IATYPE.EQ2)  THEN 

C  EVALUATE  UNGUIDED  AREA  MUNITIONS  SUCH  AS  EXPLOSIVE  ROUNDS  (to) 
C  AND  BOMBLET  DISPENSING  CARGO  PROJECTILES  ««>lcflt 
C  AGAIN.  THESE  MUNITIONS  HAVE  NO  FRIENDS 

C  FINO  ALL  RED  AND  BLUE  TARGETS  IN  THE  BASKET  AREA  PLUS  CEP  ERROR 

C  AND  EVALUATE  FRACTIONAL  COVERAGE. 

NTR-0 

C  FIND  ALL  RED  ANO  BLUE  TARGETS  M  BASKET  AREA 
DO  310  IT-1.  NR 

IF  («SYS(IT2).LE0)  GO  TO  310 
XR-RXYA(IT,1)*1000. 

YR-RXY/UIT4'1000. 

R-((XR-XT)“2»(YR-YT)“2)‘*i 
BJR.LE  J1AOIUS)  THEN 
C  THIS  RED  VEHICLE  CAN  BE  TARGETED 
ITARGRim-1 
NTH-NTR-1 
ENOIF 

310  CONTINUE 
NTB-0 

do  311  rr-i^8 

IF  (IBSYS(IT2).LE.O)  GO  TO  311 
XR«BXYA(IT,1)*1000. 


YR-8XYA(IT2)*1000. 
R-«XRXT)**2*(YR-YT)— 2)**.5 
IFm.LE.RADLIS)  THEN 

C  THIS  BLUE  VEHICLE  CAN  BE  TARGETEO 
ITARGB(IT)-1 
NTB-NTB-1 
ENOIF 

311  CONTINUE 
NTOTAL-NTR»NTB 
IF  (NTOTALLE.O)  GO  TO  40*1 

C  FINO  SHOT  DENSITY  IN  BEATEN  AREA 
NSH0TS-NUMR*NTU8E3*NSU8S 
IF  (NSHOTS.EQ.O)  GO  TO  400 
SDENS-REAL(NSHOTSyBEATAREA 


C 

C 


WRITE  (*,*)  'NTR.NTB.NSHOTS.SDE NS 
WRITE  (*.i  NTR.NTB.NSHOTS.SOENS 


DO  320  IR-1.NR 

IF  (ITARGR|IR).NE.1)  GO  TO  320 
JSYS-IRSYSIIR.I) 

PKRAD-ARTPKB(JSYS.KASYS,ITYPE) 
PKAflEA-P  T  PKRAO*P  KRAO 
EXVAL-PKAREA'SOENS 
PKIT.I-EXP(-EXVAL) 


C 

c 


WRITE  (*1  'PKRAD.PKAREA.EXVAUPKir 
WRITE  M  PKRAO.PKAREA.EXVAL.PKIT 


IF  ySYS.GT.10)  THEN 
c  COUNTER-BATTERY  SITUATION 
JTUBES-IRSYS(IRA) 

JASYS-JSYS-10 

D  TUBES.  REAL(1AHTUBE(JASYS)) 

CAU  COUNTERS  (NKLLSJTUBESOTUBESflADIUSNSHOTSPKIT. 
AMLTYPE.IATYPE) 

DO  3iS  NKILLS 

WRITE  (10.1  •feD  MR.'  KLLED  BY  BLUE  ARTLLERY  'MAMA. 

A  '  SUBMUNITION  AMMO  TYPE  '.(TYPE 

CAU  WARTYJTIME2.IR.1.NUMA.ITYPE) 

CAU  OUTPUTS  (IT1ME2.IR.0) 

315  CONTINUE 

IRSYSIIRil-IRSYSIIRANKLLS 
IF  ^SYS(IR2).LT.d)  WSYS(IR2)M) 

PROB-RNOO 

IF  (PR08LE.PKITAND.IRSYS(IR.2)GTO)  THEN 
C  TARGET  KLLED 

WRITE  (10.1  "RED  MR.'  KILLED  BY  BLUE  ARTILLERY  MJMA. 

A  '  SUBMUNITION  AMMO  TYPE  MTYPE 

IRS  YS{  IR2H IRSYS(IR,2}- 1  _ 

UMAJTYPE) 


ENOIF 
ENOIF 

320  CONTINUE 
00  321  IB-1.NB 

c  IF  (RAfiGBj|B).NE.1)  GO  TO  321 
JSYS-I8SYSIIB.1) 

PKRAD-AHTPKB(JSYSXASYS.ITYPE) 

PKAREA-PrPKRAD*PKRAD 

EXVAL-PKAREA'SOENS 

PKir.l-EXP(-EXVAL) 

IF  (JSYS.GT.10)  THEN 
C  COUNTER-BATTERY  SITUATION 
JTUBES-IBSYS(IB2) 

JASYS-JSYS-10 

OTUBES-REAL(IABTUBE(JASYS)) 

NKILLS-0 

CALL  COUNTEHB  (NKIUSJTUBES.OTUBES.RAOIUS.NS HOTS .PKIT, 
AMILTYPE.IATYPE) 

DO  316  INK-1.NKIUS 

WRITE  (10,1  'BLUE  MB.'  KLLED  BY  BLUE  ARTLLERY  '.NUMA. 

A  '  SUBMUNITION  AMMO  TYPE  MTYPE 

CAU  WARTY  (ITIME. 1. IS, 1.NUMA.ITYPE) 

CALL  OUTPUT*  (ITIME.1,18.0) 

315  CONTINUE 

LNKIUS 
SYS(IB2)-0 


PROB-RNl 

~  (PROS _ 

C  TARGET  KLLED 


IF  (PROBL^.PKIT JLN0.IBSv"  ;IB2).GT.0)  THEN 


WRITE  (10,1  BLUE  MB.'  KLLED  BY  BLUE  ARTLLERY  'MIMA. 
A  '  SUBMUNITION  AMMO  TYPE  MTYPE 

IBSYS(IB2)-IBSYS(IB,2>-1 

“  “  'S(fB2).LT.O)  I8SYS _  _ 

IIMA.ITYPE) 


IF  (IBSYS(IB2).LT.O)  IBSYS(IB.2)-0 
CALL  WARTY  (ITIME.1.8.1MIMA.ITI 
CALL  OUTPUTS  (ITIME.1.IB.0) 


ENOIF 
ENOIF 

321  CONTINUE 
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400  CONTINUE 


UFumii-o 
MFUBNi-O 
MFUBN.3-0 
MFUB  N.4W0 
UFUB  N.5  >0 
XYFU8(N,1)«0. 

XYFU8(R2i-0. 

C  DRAW  FIRE  MISSION  IMPACT  ZONE  ON  ACTIVE  OHIO 
CALL  ORAWART  (1.XT.YT.RADIUS.IATYPE) 

ENOIF 

500  CONTINUE 


NOW  00  RED  FIRE  MISSIONS 
DOISOON-1.NFMJ&3 
IF  IMFUR(N.I).EQ-O)  GO  Tl 
IETA-MFUR(N,5) 


r JIETAGTO)  THEN 
NOT  ARRIVED  ON  TARGET  VET 

MFU^N.5^MFUR<N.5)-IOTIME 

else 

THIS  MISSION  HAS  COME  DUE 
NUMA-MFUR(N.l) 

X/URXYA(NUMA.1r  1000 
VA.RXYA(NUM/L2)-100a 

kasys«irsvs(m3maiho 

NTUBES-IRSYSINUMA^) 

NUMRJAFUR(Njn 

ITYPE.MFUR(N.ft 

MILTYPE-0 

IF  (lAFAFR(KASYS.ITYPE).EQ.  1)  MILTYPE.1 
IArYPE«IATYPR(KASYS,ITYPE) 

IF  (MtLTYPE.EQ.1)  IATY^E-0 

MAXRNG.IARNGR(KASYS.ITYPE.I) 

MAXCEP-IARNGR(KASYS.ITYPE.3) 

NSUBS-IARNGR(KASYS,ITYPE.«) 

r  (NSUBSXE.0)  NSUBS.1 

PATAREA.REaL(IARNGR(KASYS.ITYPE.5)) 

8EATAREaJrEAL(MFUR<NA)) 

XT-XYFUR(N.1|-1dOO. 

YT-XYFUR(N^(*1000. 

ADJUST  MPACT  POINT  BASED  ON  CEP  AND  RANDOM  NUMBER 
RANGE.  «XTXA)‘'2»fYT-YA)"3)".S 
CEPM-REAL(MAXCEP)*RANG£/REAL(MAXRNG) 
RDEP.iTTCEPM 
SIGRD.ROEP/JS74S 


CALL  CEP  (SIGMA) 
StQRD-SIGRD'SIGMA 


XT-XT.SIGRD 

YT.YT.SIGRD 

ACEP-PI-SIGRCrSIGRO 

IF  (BEATAREA.LT.ACEP)  BEATAREA.ACEP 

IF  (BEATAREALT.PATAREA)  BEATAREA-PATAREA 

RADIUSMBE  ATAREA/P  l)~.5 

C  WRITE  (*.*)  'ACEP,  PATAREA.  BEATAREA  RADIUS 
C  WRITE  M  ACEPRATAREABEATAREA RADIUS 

00 1103  IK.  1,10 
1103  IGUI0E|IK>.M1LAR(N.IK) 

IF  (IATYPE.E04)  THEN 

C  CREATE  ARTILLERY  SMOKE  CLOUD 
C 

RADIUS.  ARTPKRM  .KASYS.ITYPE) 
A1-PrRADtlS*RADIUS 
AT-ArNUMR*NTUBE8 
IF  (BEATAREAGEAT)  THEN 
RADIUS- (AT/PI)“.5 
ELSE 

RADIUS^BEATAREA/PI)  -.5 
ENDIF 

TSMKWWTPKR/2JMSYS.ITYPE) 

CALL  ARTSMOKE  (ITIUE.XT.YT,RADIUS,TSMK) 
ENOIF 


IUS.TSMK) 


IFJMATYPE.EQ.il  THEN 

EVALUATE  MAN-IN- THE-LOOP  TERMINAL  GUIDANCE  ON  DESIGNATED 
TARGET  LIST 

LISTED  TARGETS  MUST  BE  IN  THE  BASKET  AREA  PLUS  CEP  ERROR 
IF  THESE  TARGETS  ARE  NO  LONGER  THERE.  ANY  SHORTFALL  WILL 
BE  MADE  UP  BY  FINDING  ANY  OTHER  ENEMY  TARGETS  IN  AREA 

FINO  AU.  BLUE  TARGETS  W  BASKET  AREA 
00 1110  IT.1.NB 
IF  (IBSYS(ITi)XE.q)  GO  TO  1110 

xR^WYAjrriihoai. 

YfWXYAfrrihooo. 


RH(XR-XT)“2*IYR.YT)~2)“S 
fjfLLE-RADIUS)  TWsN 
<ED  VEHICLE  CAN  BE  TARGETED 


THIS  RED  VEHICLE  ( 
ITARGB(IT).  1 


ENOIF 

1110  CONTNUE 

C  COMPARE  TARGET  LIST  AGAINST  AVAILABLE  TARQET8 
NSHOTS^tUMR-N  TUBES  *NSU8S 

ms  do  ttio  rr. t.to 

C  IF  NO  SHOTS  LEFT.  SKIP  IT 
IF  (NSHOTS.LE.O)  GO  TO  1120 
NT.K3UI0E(IT1 

C  IF  NO  TARGET  ON  LIST.  SKF  IT 
IF  (NT.EQ.O)  GO  TO  1120 
C  IF  ALREADY  KILLED  SKIP  IT 
IF  (l8SYS(NTi)XE.O)  THEN 
IGUIOE(ITW) 

GO  TO  1 120 
ENOIF 

C  SEE  IF  THIS  TARGET  IS  IN  BASKET  AND  THEN  SHOOT  IT 
f  (ITARGB(NT).EQ.O)  THEN 
IGUIDEIITWO 
GO  TO  1120 
ENOIF 

C  SHOOT  IT 

JSYS-IBSYS(NT,11 
PKIT.ARTPKR(JSYS.KASYS.ITYPE) 

IF  (JSYS.GT.lft  THEN 
C  COUNTER-BATTERY  SITUATION 

JTUBES-IBSYS(NT,2) 

JASYS-JSYS-10 

DTU8ES-REAL(IABTUBE(JASYS» 

NKIUS-0 

CALL  COUNTERS  (NKILL3JTUBES.DTUBES.RADIUS.NSHOTS.PKIT, 
AM1TYPE.IATYPE) 

DO  1116  INK.1NKILLS 

WRITE  (10,*)  -BLUE  NT.'  KILLED  BY  RED  ARTILLERY  NUMA 
A  '  M-l-L  AMMO  TYPE  '.ITYPE 

CALL  WARTY  (ITIME.1.NT.2.NUMAITYPE) 

CALL  OUTPUT!  (ITIME.1NT.0) 

1116  CONTNUE 


tBSYS^NT^-IBSYStNT^-NKLLS 

ITARGB((NrH> 

ELSE 

PROB.RNDO 
IF  (PR06lE.PKm  THEN 
C  TARGET  KILLED 

WRITE  (10.*)  -BLUE  'NT.'  KLLED  BY  RED  ARTILLERY  'JJUMA 
A  '  M-l-L  AMMO  TYPE  ‘.ITYPE 

©SYSfNT  .21-  IBSYS(NT2)-1 
f  (IBSYS(NT2).LT A  IB SYS(NT 
C  REMOVE  FROM  TARGET  LIST.  SINCE  KLLED 
IGUIDE(ITW) 

ITARGBINTWO 

CALL  WARTY  IITIUE.1  ,M2.  SUUA,  ITYPE) 

CAU  OUTPUTS  (tTIME.INT.0) 

ENDIF 

NSHOTSHJSHOTS-1 

ENDIF 

1120  CONTNUE 
NUAUO 

C  IF  ANY  SHOTS  REMAN.  GO  DOWN  TARGETABLE  LIST  ANO  SHOOT  AT  THEM 
IF  (NSHOTS.GE.1)  THEN 
DOIIXIT.I.NB 
IF  (NUM.EO.IO)  QO  TO  1130 
IF  NUM.EQHSHOTS)  GO  TO  1 1X 
IF  (ITARGB(IT).GT.Q)  THEN 
NUkj.NUM.1 
IGUID£(NUM).|T 
ENOIF 

11X  CONTNUE 
ENOIF 

IF  (NUM.QT.0)  GO  TO  1116 


IF  (IATYPE.EQ.1)  THEN 

EVALUATE  PONT  TARGET  MUNITIONS/SUBMUNmONS 
THESE  ARE  F IRE-AND-FORGET  TERMINALLY  GUIOED 
PROJECTILES/SUBMUNITIONS  SUCH  AS  SADARM  OR  GUIDED  MORTAR 
ROUNOS 

FIND  ALL  VEHICLES  N  THE  BASKET  AREA  ANO  EVALUATE  THEIR 
PROBABILITIES  OF  BEING  TARGETED  AND  KILLED 
REMEMBER  UNLESS  THERE  IS  IFF.  WHICH  THERE  ISN'T.  FRIENDLY 
VEHICLES  MAY  ALSO  BE  TARGETED.  SO  FIND  ALL  POTENTIAL  VEHICLES 
N  BASKED  AREA.  INCLUDING  KILLED  VEHICLES.  SINCE  HOW  THE 
HECK  WILL  A  MUNITION  LIKE  THIS  KNOW  THE  DIFFERENCE  7 
THE  FINER  POINTS  OF  THESE  ISSUES  WILL  HAVE  TO  BE  MODELED  LATER 
FOR  NOW.  THESE  FAF  GUIDED  PROJECTILES  ARE  BASICALLY  DUMB. 

NTFWO 

FIND  AU.  RED  AND  BLUE  TARGETS  N  BASKET  AREA.  EVEN  DEAD  ONES 
DO  1210rr.1.NR 
XR-RXYA(IT,inOOO. 

YR.RXY/VIT4'1(X». 

RW(XR-XT)“2HYR-YT)“2>“i 
IFiR.LE  .RADIUS)  THEN 
THIS  RED  VEHICLE  CAN  BE  TARGETED 
ITARGWTH 
NTR-NTR.1 
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ENOtF 

1210  CONTINUE 

NTB-0 

001211  fT.1H8 

xfuaxvA/iT.n-iooa 

YiwaxvMrrij'iooo. 

fU(XR-XT)“2»frR-YT)"2)“J 
EfflLLEJWDHJSl  THEN 

C  THIS  BLUE  VEHICLE  CAN  BE  TARGETED 
ITARGB(IT>.1 
NTB.NTB.1 
ENDF 

1211  CONTINUE 

NTOTAL-NTTWNTB 
F  (NTOTALXE.O)  00  TO  1300 

C  FWO  EXPECTED  NUMBER  OF  SHOTS  PER  AVAILABLE  TARGET 
NSHOTS-NUMR'NTUSES'NSUBS 
SEACHJIEALINSHOTSVREAUNTOTAL) 

C  BASED  ON  POISSON'S  DISTRIBUTION,  FIND  TIC  PROBABILITY 
C  THAT  A  VEHICLE  WttL.  BE  WITHIN  RANGE  OF  AT  LEAST  ONE  SUBMUNITION 
P1-1-EXP(-S£ACH) 

C  LIMIT  SHOOT  OUT  TO  NSUBS  CYCLES,  SINCE  THE  UNIFORMITY  OF 
C  THE  PATTERN  AND  TARGET  DENSITIES  ARE  UNKNOWN. 

C  IT  IS  REASONABLE  TO  ASSUME  THAT  ANY  ONE  TARGET  WILL  BE 
C  WITHIN  THE  ATTACK  RANGE  OF  ANY  ONE  MISSILE. 

NCYC-0 

1215  IF  (NCYC.GT.NSUBS)  GO  TO  1300 

001220R-1HR 
F  (NSHOTS.LE.OIGO  TO  1300 
IF  (iTARGR(IR).NE.1)  GO  TO  1220 
PR08-RN0Q 

F  (PR0B.GT.P1)  GO  TO  1220 
C  SHOOT  IT 

JSYS- WSYSIIR,  1 1 
PKIT.ARTPK&JSYS.KASYS.nYPE) 

F  (JSYS.GT.1Q  THEN 
C  COUNTER-BATTERY  SITUATION 
JTUBES-IRSYS(FU) 

JASYSWSYS-10 

DTUBES-REAUIARTUBE(JASYS)) 

NKLLS-0 

NSHOT.NSUBS 

C  WRITE  (*,*)  CALL  COUNTERS.  NK ILLS  JTU8ES.DTUSES. RADIUS. 

C  1NSHOTWT.MILTYPE.IATYPE' 

C  WRITE  f .TNKILLS JTUBES.DTUBESRADIUS. 

C  *NSH0TPKrrjWLTYPE.(A7YPE 

CAU  COUNTERB  (NKILLS  JTUBESJJTUBES.RADIUS  HSHOTRKIT. 
AMILTYPE.IATYPE) 


ft? 


WRITE  (*.*)  NKILLS 


NSHOTS-NSHOTS- (NSUBS- NSHOT) 

DO  1218  INK.1HKtt.L3 

WRITE  (10,*)  -RED KILLED  BY  RED  ARTILLERY  'HUM A, 

•  '  F-AF  GUIDED  AMMO  TYPE  .ITYPE 

CAU  WARTY  (ITIME.2.IR.1.NUMA. ITYPE) 

CAU  OUTPUTS  (ITIMEJ.FLO) 

1216  CONTINUE 

WSYSJIfUHRSYSflRJI-NKILLS 

IRSYS<tfL2)-0 

PROS- RN  DO 

F  (PROB.LE.PKITAND.«SYS(IR2).GT.O)  THEN 

c  target  Killed 

WRITE  (10.*)  RED  UR'  KILLED  BY  RED  ARTILLERY  \NUMA. 

A  '  F-A-F  GUIDEO  AMMO  TYPE  '.ITYPE 

IRSYS(IRJ3-IRSYS(IR2V.1 
F  (IRSYS(IR2).LT.O)  IRSYSrtRJM 
CAU  WARTY  (ITIME2.IR.  1  HUM  A.ITYPE) 

CAU  OUTPUTS  (ITIMEAIR.O) 

ENOIF 

NSHOTSJ4SHOTS-1 
ENDF 
1220  CONTINUE 

001221 IB-1HB 
F  (NSHOTS.LE.01  GO  TO  1300 
F  KtARGB(B)HE.1)  GO  TO  1221 
PROB-RNOQ 

F  (PROB.GT.Pl)  GO  TO  1221 
C  SHOOT  IT 

JSYS.BSYS<!B.1) 

PKIT-ARTPKR(JSYS.KASYS.rrYPE) 

F  (JSY3.GT.10)  THEN 
C  COUNTER-BATTERY  SITUATION 
JTU8ES-IB3YS(iajJ) 

JASYSWSYS-10 

DTUSES<4I£AL(IABTUBE(JASYS)) 

NKILLSH) 

NSHOT.NSUBS 

CAU  COUNTERB  (NKILLS  JTUBESOTUBE  SHAD IUS.NSHOTPKIT, 
AMILTYPE.IATYPE) 


WRITE  (10.*)  -BLUE  '.ft'  KLLED  BY  RED  ARTILLERY ', 
A  '  F-A-F  GUIDED  AMMO  TYPE  '.ITYPE 

CAU  WARTY  (ITfME,t.ftt,NUMA.(TYP€) 

CAU  OUTPUTS  (ITIME.I.IBS) 

1217  CONTMUE 

IBSYS(IB.2)-IBSYSllB2VNKttLS 
^^eSYS((B,2)LTS)  BSYS(ft2H> 

PROB-RNOO 

F  (PROBLE.PKrrHNO.IBSYS(»S).QT.q  THEN 
C  TARGET  KILLED 

WRITE  (10.*)  -BLUE  '.0.'  KILLED  BY  RED  ARTILERY 
A  'F-A-F  GUIDED  AMMO  TYPE '.ITYPE 


CAU  OUTPUTS  (ITIME.I.IB.q 
ENDF 

NSH0TS^(SH0TS-1 

ENDF 

1221  CONTMUE 
NCYt>NCYC»1 

F  (NSHOTS.GT.q  GO  TO  1215 
1300  CONTMUE 
ENDF 


IF  JIATYPE.EQ2)  T1  _ 

EVALUATE  UNGUIDED  AREA  MUNITIONS  SUCH  AS  EXPLOSIVE  ROUNDS  (Iw) 


THEN 

C  EVALUATE  UtiGUIDEO  _ 

C  AND  BOMBIET  DISPENSING  CARGO  PROJECTILES  (dptan) 

C  AGAIN,  THESE  MUNITIONS  HAVE  NO  FRIENDS 
C  FIND  AU  RED  AND  BLUE  TARGETS  IN  THE  BASKET  AREA  PLUS  CEP  ERROR 
C  AND  EVALUATE  FRACTIONAL  COVERAGE 
NTFUO 

C  FINOAUREO  AND  BLUE  TARGETS  IN  BASKET  AREA 
DO  1310  IT.1HR 
F  («SYS(IT,2).LE.q  GO  TO  1310 
XR.RXYMIT.1)*1000. 

YR.RXY«ITS)*1000, 

R^(XR-XT)“2HYR-YT)“2)**S 
F  (R.LE. RADIUS)  THEN 

C  THIS  RED  VEHICLE  CAN  BE  TARGETED 
ITARGRim-l 
NTR.NTR.1 
ENDF 

1310  CONTMUE 
NTBM) 

DO  1311  IT.1.NB 
F  (IBSYS(IT.2).LE.0>  GO  TO  1311 
XR^XYAIIT.I  *1000. 

YMXYMTj)‘iaOO. 

RmXR-XT)-2*(YR-YT)"2)-S 


C 

C 


WRITE  (*,*)  -BLUE,  X  Y  R  RADIUS' 
WRITE  (*.T  IT.XR.YR.RHADW3 

F  (RLE RADIUS)  THEN 

WRITE  (*,')  YES ' 


C  THIS  BLUE  VEHICLE  CAN  BE  TARGETED 
ITARGBOn-l 
NTB-NTEU1 
ENDF 

1311  CONTMUE 
NTOTAl-NTR.NTB 


WRITE  (*.*)  'NTOTALNR.NB 
WRITE  (V)  NTOTAL.NTR.NTB 

F  (NTOTAL.LE.O)  00  TO  1400 

FIND  SHOT  DENSITY  IN  BEATEN  AREA 

NSHOTS^UMR*NTUBES*NSUBS 

F  (NSHOTS.EQ.O)  GO  TO  1400 

SDENSJ»EAL(NSHOTSySEATAREA 

'NTR.NTB.NSHOTS.SOENS' 


WRITE 

WRITE 


\'?I  NTRNT8.NSHOTS.SDENS 


NSHOTS-NSHOTS- (NSUBS- NSHOT) 
D0 1217  INK.1HKIUS 


DO  1320  R-1HR 

IF  (ITARGR(R)HEI)  GO  TO  1320 
JSYS-IRSYSIIR.I) 

PKRAD-AflTPKR(JSYS.KASYS.ITYPE) 

PKAREA4>rPKRAO*PKRAD 

EXVAL-PKAREA'SDENS 

PKlT-l-EXP(-EXVAL) 

C  WRITE  (*.*)  PKRADRKAREA.EXVALRKfT 
C  WRITE  I*.*)  PKRAO.PKAREA.EXVALRKIT 

F  (JSYS.GT.iq  THEN 
C  COUNTER-BATTERY  SITUATION 
JTUBES.IflSYS(lR2) 
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JASY3-J3YS-10 

OTuaCS^EAMIARTUaE(JASYS)) 

MUU.S-0 

CALL  COUNTERS  <NKILLS.JTU8£S,OTUeES.RADIUS.NSHOTS,PKIT, 
AMILTYPE.IATYPE) 

DO  1315  MU1M<tlS 

WRITE  (10.*)  -RED  KLLED  BY  RED  ARTILLERY  '.NUMA. 

A  '  SUBMUNITION  AMMO  TYPE  MTYPE 

CALL  WARTY  (ITIME,2.fi,1.NUMA,ITYP£) 

CALL  OUTPUTS  (ITIMEi.fi.0) 

1315  CONTINUE 

fiSVaiRiHRSYSIIRil-NKJUS 
ttjjjRSVS(R2).LT.O)  «SYS(IRi)-0 

PROB-RNOO 

1  (PRoCLE.PKlTANO.HSYS(n.2).GT.O)  THEN 

c  target  Killed 

WRITE  (10,*)  WED  MR.’  KILLED  BY  RED  ARTILLERY  '.NUMA. 

A  ’  SUBMUNITION  AMMO  TYPE  MTYPE 

RSYSlIRi)-  IRSYSI  IRiF  1 
r  (IRSYS<jHi).LT.Q)  IHSYSjlRiHO 
CALL  WARTY  (ITIM£,2,lfl,l.NuMAITYPE) 

CALL  OUTPUTS  (ITIMEi.«.0) 

ENOfi 
ENOIF 
1320  CONTINUE 

DO  1321  IB-1.N8 
IF  (ITARGB(IB).NE.1>  GO  TO  1321 

JSYS-IBSYS(I&,1) 

PKRAO-ARTPKR(JSYS.KASYS.ITYPE) 

PKAREA-PI*PKRAO"PKRAO 

EXVAL-PKAREA'SOENS 

PKIT-I-EXP(-EXVAL) 


C  WRITi  f*'3  PKRAOjPKAREAEXVAU>KIT 

r  (JSYS.GT.10)  THEN 
c  COUNTER-BATTERY  situation 

JTUBES-IBSYS(IB.2) 

JASYS-JSYS-10 

DTUBES-REAL(IABTUBE(JASYS)) 

NKILLS-0 

CALL  COUNTERS  (NKJLLS  JTUBES.DTUBES.RADIUS.NSHOTST’KIT. 
AMILTYPE.IATYPE) 

DO  1316  INK- INKILLS 

WRITE  110.*)  -BLUE  MB.’  KILLED  BY  REO  ARTILLERY  ’.NUMA. 

A  ’  SUBMUNITION  AMMO  TYPE  MTYPE 

CALL  WARTY  (ITME.1.IB.1.NUMA.ITYPE) 

CALL  OUTPUTS  (ITIME.1.IB.0) 

1316  CONTINUE 

«SYS(IB.2)-I8SYS(IB.21-NKILLS 
IF  (IBSYS(IB.2)i.T.O)  l8SYS(IBi)-0 
ELSE 

PROB-RNDO 

f  (PROB.Lt.PKrTANO.IBSYS(IBi).GT.O)  THEN 

c  target  Killed 

WRITE  (10.-)  -BLUE  MB.’  KILLED  BY  REO  ARTILLERY  NUMA. 

A  ’  SUBMUNITION  AMMO  TYPE  MTYPE 

IBSY»IS.2HBSYS(IB.2t-1 

IF  (IBSYS(lB.2).LT.to  IBSYS(IB.2)-0 
CAU.  WARTY  (ITIME.1 .18.1  NUMA.ITYPE) 

CALL  OUTPUTS  (ITIME.1.IB.0) 

ENOIF 
ENOfi 
1321  CONTINUE 

1400  CONTINUE 


ENOIF 


C  DRAW  FIRE  MISSION  IMPACT  ZONE  ON  ACTIVE  GRID 
CALL  DRAWART  (2J(T.YTJTADIUS,UTYPE) 

ENOIF 
1500  CONTINUE 


RETURN 

END 


SUBROUTINE  CEP  (SIGMA) 

C  THIS  SUBROUTINE  DETERMINES  FOR  THIS  ONE  EVENT  THE  RANGE  AND 
C  DEFLECTION  IMPACT  POINT  ERROR  FOR  THE  ARTILLERY  BARRAGE  BASED 
C  ON  THE  CEP  INPUT. 

C  THIS  64PACT  ERROR  IS  DETERMINED  BY  TAKING  SUCCESSIVE  RANDOM 
C  NUMBERS  (FROM  A  FLAT  PROBABILITY  CURVE),  (UP  TO  7  CYCLES). 

C  THE  RANDOM  NUMBER  IS  EVALUATED  FOR  BEING  ABOVE  OR  BELOW  0.5 
C  (THE  50%  CHANCE  POINT),  AND  THEN  ASSIGNED  TO  A  SIGMA  BASKET. 


C 

C 

C 

C 

C 

C 

C 

c 

c 

c 


ALL  SIGMA  BASKETS  ARE  OF  EQUAL  AREA  (THEREFORE.  EQUAL  PROBABILITY). 
SINCE  THE  PROBABILITY  OENSITY  IS  A  BELL  CURVE.  THE  SIGMA  SPACING 
IS  UNEVEN.  ALTHOUGH  THE  PROBABILITIES  ARE  THE  SAME.  THIS  RESULTS 
IN  THE  IMPACT  ERROR  BEING  ASSIGNED  TO  A  SIGMA  BASKET  MUCH 
FOLLOWS  THE  NORMAL  PROBABILITY  CURVE. 

SIGMA  BASKETS  ARE  DEFINED  TO  WITHIN  3%  ERROR  AT  SMALL  SIGMAS  TO 
3%  ERROR  AT  LARGE  SIGMAS  (MORE  BASKETS  ARE  NEEDED  AS  THE  CURVE 
THINS  OUT  AT  THE  TAILS.  SO  THAT  ULTIMATE  IMPACT  POINT  ERROR  ERRORS 
ARE  REDUCED. 


OWENS  ION  SB  (23)  .RL  (20) 
CHARACTER-7  RUATEST 


.'100000 (7 
-‘100010(7 
.'100100(7 
.'1001 10(7 
-101000(7 
.'101010(7 
.T01KXX7 
.'101 1100 
-T  10000(7 

iiowiiooioo 

,11-1101000 

12 - T 101 100 

13- T110000 
Jm.'UIOIOO 
L15)-T111000 

-111  1010 

H'ninoo 

J  1«-‘11 1110V 
RUia-mino 
f€(20)-T1 11111- 

DO  100 1.1,7 

P.RND0 

P.LE.0.50]  THEN 


RL  11 
RL1Z 
RL  13 


I  NEGATIVE.  ASSIGN  VALUE  OF  0 


IF  (P.L 

C  ERROR  I 

M9 

C  ERROR  IS  POSITIVE.  ASSIGN  VALUE  OF  1 

Ifi? 

100  CONTINUE 
NF  LAG-1 

E%rv 

SIGMA-0 

DO  200  U  1.20 
LTEST.RLO) 

IF  (I.LE.14)  THEN 

^F^'SJ.Ea.LTESTlIS))  SIGMA.S8(D 

IF  (I.EQ.15.0R.I.E0.16)  THEN 
eIF^1S).EQ.LTEST(1S))  SIGMA-S8(I) 

IF  (I.GE.17)  THEN 

IF  (L(1:7).E0.LTEST(1:7))  SIGMA-S8(I) 

ENulF 

200  CONTINUE 

SIGMA-SIGMA'NFLAG 

RETURN 

END 


SUBROUTINE  ARTSMOKE  <ITIME.XT.YT,RADIUS.TSMK) 
CREATES  ARTILLERY  SMOKE  PUFFS 
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COMMON/PUFFS/1WSPEED,IWDIR,IDUST,EXPUFF,OTPUFF,TENOPUFF. 
A  IOUST1,IOUST2NOUST,l£Nai,IENG2,N£NG.ISMK1.ISMKZNSMK. 


.NSMKMX. 


4  IART1.IART2.NART.PTDUST(2400.3).PTENG/2400.3>,PSMK(400.2), 
t  TA^KjJ00^)J>A«T(9ai).TAAnT(98i).N5uSTMX;fi£NGVX,NSMI 

C  ARTILLERY  SMOKE  CLOUDS 
IF  (NART.GT.OI  THEN 

C  TEST  TO  SEE  IF  SMOKE  ARRAY  NEEDS  TO  BE  COMPRESSED  BACK 
C  TO  COLUMN  1 

ITEST.UIAR12 
IF  (ITEST.GT.NARTMX)  THEN 
C  COMPRESS  ARRAY  BEFORE  STARTING 

J-0 

00110UART1.IART2 
J— J-1 

PARTIJ.IUPARTILI) 

PART|ji5-PART|liJ 

TAARTIJ.1)-TAART(I.1) 

TAART(J.2)-TAAHT(L2) 

110  CONTINUE 

IARTt.1 
IART2-J 
ENDIF 
END  IF 

C  CREATE  NEW  ARTILLERY  SMOKE  PUFF  AFTER  IART2 
IART2-IART2-1 
K-IART2 

PARTlK.ll- XT/1000. 

PARTjkiHYT/1000. 

TAARTIK.  11-TSMK 
TAARTtoURAOlUS 
NART-IART2-IART1.1 
C 

RETURN 

90 

SUBROUTINE  PARTSMK 
C  BASED  ON  SUBROUTINE  PENG 
C  PLOTS  ARTILLERY  SMOKE  PUFFS 

COMMON/PUFFS/IWSPEED.IWOIR.IDUST.EXPUFF.OTPUFF.TENDPUFF. 
A  I0UST1.UXIST2.NDUST.IENG1.IENG2.NENG.ISMK1.ISMK2.NSMK. 

A  IARTl.iART2.NART.PTDUST(24C0.3).PTENG<2400,3).PSMK(4CI0.2). 

A  TA94K|4U}O^ART(90^).TAART(IM^).NC)USTMXNENGMX.NSMKMX 

COMMON/GRIQINX.NY.SCALE.SCFACT.PRFACT.ZFACT 
COMMON/ZOOM/BLX.BLY.XLEN.ZFACTN,XMAX.YMAX,YUNIT 
COMMONIEARPUFFS/IAERASE.PAERASEIB8.3) 

ISKlP-0 

DRAWS  A  GREEN  CIRCLE  FOR  EACH  PUFF  LOCATION. 

AND  SAVES  THIS  PUFF  FOR  LATER  ERASING. 

RAOIUS  IS  BASED  ON  PUFF  TIME  WHEN  AT  MAX  ZOOM. 

AT  MIN  ZOOM.  CIRCLE  IS  DRAWN  LARGER  SO  YOU  CAN  SEE  IT. 

CALL  FACTOR  (ZFACT) 

GXUNIT- 1 1  jO/NICSCFACT 
GYUNIT-8.5/NY 
XUNIT-GXUNIT/SCALE 
YUNIT-GYUNIT/SCALE 
IAERASE-0 


DO  100 1.IART1.IART2 
RADIUS-TAARTII^I-XUNm  .0/1 000. 
X-PART(I,1)*XUNIT 
Y-PART  ijrYUNIT 
IF  (XLEN.GT.0.1  THEN 

CALL  FACTOR  (ZFACTN) 

RADIUS- RADIUS'ZFACT/ZFACTN 
ENOIF 

CALL  NEWPENJIffl 
IF  ((X-15.-RADIUS1.LE.0.0)  ISKIP-1 
IF  ((Y-15. 'RADIUS)  .LE.O.Q)  ISKIP-1 

r  (xlen.gt.0.)  then 

call  ZOOMIT  (X.Y.ISKU*) 

IF  «Y*RADIUS).GT.(.85'YMAX))  ISKIP-I 
IF  ((X-2*RADIUS).LE.0.0)  ISKIP-1 
IF  ((Y'2.*RADIUS).L£.0.0)  ISKIP-I 

ENOIF 

IF  (ISKIP.EQ.1)  GO  TO  100 
DRAW  CIRCLE 

CALL  CIRCLE  IX.Y.RADU3) 

IAERASE-IAERASE+1 

PAERASE(IAERASE.n-PARTil.l) 

PAERASE(IAERASEjj-PARTil^) 

PAERASE  IAERASE.3  -TAART(I^) 

CONTINUE 

RETURN 

END 


SUBROUTINE  ASMASK  (XS.YS.RMAX1  .RMAX2.RMAX3) 

FIND  ANGLE  AND  RANGE  TO  ALL  ARTILLERY  SMOKE  PUFFS  WITHIN 
MAX  RANGE  OF  THIS  SYSTEM  SO  THAT  MASKING  CAN  BE  EVALUATED 

COMMON/PUFFS/!WSPEEO,IWO<R,IOUST,EXPUFF,OTPUFF,TENOPUFF, 
A  IOUST1.10UST2JtfXIST.IENG1.IENG2.N£NG.lSMK1,ISMK2.NSMK. 


A  IART1.IART2.NART,PTDUST(2400.3).PTENG<2400.3).PSMK<400.2), 
A  TASMK(400.2).PAflT|98.2).TJUHT<88i2>.NOUSTMX,^GMXjiSMI 
A  NARTMX 


KMX. 


COMMOFVMASKAfl/NARMSILARMSK(9B.3) 


XS.YS  -  SHOOTER  COORDINATES 

RMAX1.23  -  MAX  RANGE  OF  SYSTEM  WEAPONS 

ARMSKfl.1)  -  X  COORO  OF  EACH  ARTY  SMOKE  PUFF 

ARMSK  ia  -  Y  COORO  OF  EACH  ARTY  SMOKE  PUFF 

ARUSK/1.3)  -  RADIUS  FOR  EACH  ARTY  SMOKE  PUFF 

NARMSK  -  NUMBER  OF  ARTILLERY  SMOKE  PUFFS  WITHIN  MAX  RANGE 


PW3.141SB 
NARMSK-0 
IF  (NART.GT.O)  THEN 
C  CYCLE  THROUGH  I 
RMAXX-0 
IF  (RMAX1.GT.RMAXX)  RMAXX-RMAX1 
IF  (RMAX2GT.RMAXX)  RMAXX-RMAX2 
IF  RMAX3.GT.RMAXX)  RMAXX-RMAX2 
RMAXX-RMAXX/1000. 

DO  20  I-IART1.IART2 
XO-PART/1.1) 

YD-PARTlij 
RA0IUS-PART(I,3)/1000. 
RANGE-UXE>XS)'*2*(YD-YS)**2J*'.S 
IF  (IRANGE-FMDIUSJ.GTRMAXX)  GO  TO  20 
NARMSK-NARMSK.1 
ARMSK(NARMSK,1WXD 
ARMSK  NARMSK YD 
ARM  SKjNARM  SKJMTAOIUS 
20  CONTINUE 
ENDIF 
RETURN 
END 


ALL  SMOKE  PUFFS  TO  FILL  MASKING  ARRAY 


SHOOTER  ANO  TARGET 


SUBROUTINE  ASSEE  (XS.YS.XT.YT .AZIMUTH  JSKIP1 
EVALUATES  ARTILLERY  SMOKE  MASKING  BETWEEN 

XS. YS  SHOOTER  REAL  WORLD  COORDINATES 

XT. YT  TARGET  REAL  WORLD  COORDINATES 
AZIN  AZIMUTH  TO  TARGET 

JSKIP  FLAG  TO  SKIP  THIS  TARGET  IF  MASKED  (-0  TO  SKIP) 

COMMONIEL£VA£ONT(20).£LEV(10000) 

COMMON/GRIO/NX.NY, SCALE, SCFACT.PRFACT.ZF  ACT 

COMMON/MASKAR/NARMSKARMSK(98.3) 

DOUBLE  PRECISION  ANGLE  ANGLEI 

PI-3.141 5B 

IF  (NARMSK.GT.O)  THEN 

FIND  SHOOTER  AND  TARGET  GRID  COORDINATES 
TAKE  NEAREST  INTEGER.  SINCE  GRIDS  ARE  LOCATED 
CENTER  TO  CENTER  ABOUT  THE  SCALE. 

RRANGE-((YT-YS)"2HXT-XS)“2)“.S 

IXS-NINTIXS/SCALE) 

IYS-NINT(YS/SCALE) 

IXT- N  IN  T  (XT/SC  ALE) 

IYT.NINTYYT/SCALE) 

IF  (IXS.LT.1)  IXS-1 
IF  IXT.LT.1)  IXT-1 
IF  (IYS.LT.1  IYS-1 
IF  IYT.LT.1)  IYT-1 
IF  i  IXS.GT.NX)  1XS-NX 
£  IXT.GT.NX)  IXT.NX 
IF  IYS.GT.NY)  IYS-NY 
IF  IYT.GT.NY|  IYT.NY 

FIND  SHOOTER  AND  TARGET  ELEVATION 
IS-NY'(IXS-1WIYS 
SELEV-CONT(IELEV(IS)) 
rr.NY*(IXT-IJ«IYT 
TELEV-CONT(IEL£V(IT)) 

ADO  20  METER  TO  ELEVATIONS  OF  TARGET  AND  SHOOTER  TO  ACCOUNT 
FOR  VEHICLE  HEIGHT 
SELEV-SELEW.0Q2 
TELEV-TELEV+.0Q2 

FIND  ELEVATION  ANGLE  TO  THIS  TARGET 
TOP-TELEV-SELEV 
BOT-RRANGE 
ANGLE- AT  AN(TOP/BOT) 

DO  2001.1,  NARMSK 
IF  (JSKIP.EQ.O)  GO  TO  300 

CYCLE  THROUGH  ALL  ARTY  SMOKE  PUFFS 
TO  EVALUATE  MASKING,  FIND  THE  LEFT  ANO  RIGHT  AZIMUTH 
BRACKETING  EACH  PUFF  WITHIN  RANGE.  DROP  IF  OUT  OF  ANGLE  RANGE. 
THEN  FIND  THE  ELEVATION  ANGLE  TO  THE  TOP  OF  THE  PUFF. 

DROP  PUFF  IF  NOT  HIGH  ENOUGH 

EVALUATE  RANGE  TO  SMOKE  PUFF 
XP-AHMSK(I.I) 

yp-armskM 
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f«i 


IJ.QT.F 


6)  00  TO  200 


END 


EVALUATE  ANGLES  TO  SMOKE  PUFF 
TOP.VP-YS 
BOT.XPXS 

r  (TOP.EO.aojMO.BOT.Eaao)  jskip-o 

FJBOT.EO.O.O)  BOT-BOT*.001 
O^ATAN(ABS(^/AaS(BOT))'iaOJPI 

FflOT.L  °jg* ^TOPXT.OJO}  oJwofuho. 

F  (TOP.QT.0.0)  o«-na-dR 

ELBE 

F  (TOP.LT.O.O)  CHR-3eO.-OIR 

ENOF 

CONVERT  THIS  COORDINATE  SYSTEM  DIRECTION  TO  AN  AZIMUTH 
CALL  FAZ  (DiRAZIN) 

- (  RAdUS^UOSO 

P  ■RADIUS 

_ JfRPpSOJPI 

AZLFT.AZIN-OELAZ 
AZRGT-AZIN*OELAZ 
F  (AZLFT.LT.O.O)  AZLFT-AZLFT+360.0 
F  (AZRGT.LT.0.0)  AZRGT-AZRGT-360.0 
F  (AZLFT.GT.360.01  A2LFT-AZLFT-380.0 
F  (AZRGT  .GT.360.0)  AZRGT -AZRGT -360.0 
F  ( AZLFT.GT AZRGT)  AZRGT -AZRGT *360. 

F  (AZIMUTHXT.O.O)  AZIMUTH -AZIMUTH -.380.0 
F  (AZIMUTH.GT. 380.01  AZIMUTH-AZIMUTH* 380.0 
F  (AZIMUTH.LTAZLFT.Ofl.AZIMUTH.GTJkZnGT)  GO  TO  200 

EVALUATE  HEIGHT  OF  SMOKE  PUFF 

FIND  ELEVATION  OF  THE  GROUND  UNDER  THIS  PUFF 
IXP-NINT(XP/SCALf> 

iyp-nint)yp/scale) 

F  (IXPXT.1)  IXP-1 
F  (IYP.LT.lJ  IYP-1 
F  (IXP.GT.NX)  1XP-NX 

F  (iyp.qt.nyJ  iyp-ny 

F-NYYIXP-IUIYP 

PELEViCONTllELEVflPH 

ADD  TO  THIS  ELEVATION  THE  HEIGHT  OF  THE  PUFF 
MAX  PUFF  HEIGHT  IS  30  METERS  (100  FEET) 

HEIGHT-RADIUS 

F  (RAD1US.GT.a03q)  HEIGHT-0.030 
PEIEV-PELEV-HEIGHT 
FIND  ELEVATION  ANGLE  TO  THIS  DUST  PUFF 
TOP-PELEV-SELEV 
BOT-RP 

ANGLE  l-ATAN(TOP/80T) 

F  (ANGLEI.GTANGLE)  JSKF-0 
0  CONTINUE 

ENOF 

0  RETURN 
END 


SUBROUTINE  ORAWART  (KStOEja.YT.RADIUS.lATYPE) 

BASED  ON  SUBROUTINE  PENG 

PLOTS  ARTILLERY  FIRE  MISSION  ON  ACTIVE  GRiO 

COM  MON/QRIGNX.NY, SCALE, SCFACT.PRFACT.ZF  ACT 
COMMON/ZOOM)8LX.BLY,XLEN.ZFACTN.XMAX.YMAX.YUNIT 


F  (IATYPE.ECL3)  RETURN 
ISKIP-0 


II 

DRAWS  A  COLORED  CIRCLE  (RED  OR  BLUE)  FOR  EACH  MISSION  LOCATION. 

CALL  FACTOR  (ZFACT) 

GXUNIT- 1 1  ONJcSCFACT 
GYUNIT-8.5/NY 
XUNIT-OXUNIT/SCALE 
YUNIT-GYUNIT/SCALE 
RAdUS-RADIUS-XUNinXXIOOa 
X-XrxUNIT,1000. 

Y-YTYUNir/1000. 

F  (XLEN.GT.O.)  THEN 

CAU  FACTOR  (ZFACTN) 

RADIUS- RADIUS 'ZFACT/ZFACTN 
ENOF 

F  (KSIOe.EO.1)  CALL  NEWPEN  (9) 

F  (KSID€.EQl2jCAU  NEWPEN  12) 

F  ((X*15.-RAD(US)X£.0.0)  SKF.1 
F  ((Y-1S.*RADIUS)LEX)4  BKIP-1 
F  XLEN.GT.0.)  THEN 

CAU  ZOOMIT  (X,Y,tSKIP) 

"  Y-RADtUS).QTT.96-YMA»)  ISKF-1 
L-RADIUS1.LE.0.0I  ISKIP-t 
..  L*RADttJS).LE.0.0j  ISKF-1 

ENOF 

F  (ISKF.E0.1)  GO  TO  100 
C  DRAW  C«CLE 

CALL  CIRCLE  (X.Y^AOUS) 

100  CONTINUE 

RETURN 


C 

C 

C 

C 

C 

C 

c 

c 

c 

c 


SUBROUTINE  WARTY  (KT84EJSIOC-IXSOE.K.ITYPE) 
ARTILLERY  KILLS  DATA  OUTPUT 


KTIME  MU  HUE 

JS1DE  TARGET  SIOE  (1  BLUE.  2  RED) 

J  VEHICLE  NUMBER 

JSYS  SYSTEM  NUMBER 

KSCE  SHOOTER  SOE 

K  SHOOTER  NUMBER 

KSYS  SHOOTER  ARTILLERY  SYSTEM  NUMBER 

I  TYPE  ARTILLERY  AMMUNITION  NUMBER 


COMMONFORC£»ieR(200)RHeRa0aBUNrri200).RUNIT(200). 
A  t8SYS(200.Z).WSYS(200,2)A1BFX2FA3FXlRF\NB.Nfl 

CHARACTER-*)  L1BFX2FX3F.L1RFL1BMX2MX3Mi.1RM 
CHARACTER-!#  8HERRHIERHIER 
CHARACTERS  BUNITRUNIT 

F  (JSIOE.Eai)  THEN 
JSYS-IBSYS(J.I) 

ELSE 

JSYS-IRSYSW.1) 

ENOF 

F  (KS10E.EQ.1)  THEN 
KSYS-IBSYS{K,1) 

ELSE 

KSYS-IRSYS(K,1) 

ENOF 

FORMAT  (8(M.3X)) 

WRITE  (16.1)  KT IME  JSIOEUJSYS JCSDEXK8YS.ITYPE 

RETURN 

END 


SUBROUTINE  COUNTERS  (NKBXS JTUBESOTUBESX'AOAJS JiSHOTSWIT, 
AMILTYPE.IATYPE) 

C  EVALUATES  ARTILLERY  FBE  ON  ARTOLERY  UNITS  WHERE  EACH 
C  UNIT  NUMBER  REPRESENTS  MULTIPLE  TUBES  OR  VEHICLES 

PU3. 14158 

NTARG-1 

NKILLS-0 

F  (JTUBES.EQ.0)  RETURN 

V 

EN 


F  (JTUBES.EQ2)  THEN 
^F^TUBESXEHADIUS)  NTARQ-2 


F  (JTUBES.GE.3)  THEN 

C  DEFINE  A  POLYGON  WHERE  EACH  TUBE  IS  LOCATED  THE  SAME 
C  DISTANCE  0 TUBES  FROM  EACH  OTHER  TUBE 

C  FINO  THE  OUTSIDE  RADIUS  OF  THIS  POLYGON 
A-DTUBES 


ALPHA-2.*PI/REAUJTUBE8) 

R-A/2JSIN(ALPHA/2.) 


C  F  THE  MUNITION  PATTERN  IS  AIMED  AT  ONE  OF  THE  VERTICES. 

C  THEN  TO  GET  ALL  OF  THE  TUBES  IN  THE  PATTERN.  THE  PATTERN 
C  RADIUS  MUST  BE  TWICE  THE  POLYGON  RADIUS. 

C  F  THE  PATTERN  IS  AIMEO  AT  THE  CENTER  OF  THE  POLYGON.  THEN 

C  ALL  TUBES  CAN  BE  HIT  F  THE  PATTERN  RADIUS  IS  EQUAL  TO  THE 
C  POLYGON  RADIUS 

C  SINCE.  WE  DO  NOT  KNOW.  ASSUME  IT  IS  SOMEWHERE  M  BETWEEN. 

C  THE  NUMBER  OF  TUBES  WHICH  CAN  BE  TARGETED  EQUALS  THE  RATO 
C  OF  THE  TWO  DISTANCES. 

RATIO-RAD  US/R 

F  (RATIO. GEi.)  THEN 
NT  ARG-J  TUBES 
ELSE 

NTARG-NINT(RATIO-REAL(JTUBES-1)) 

ENOF 

F  (NTARGXT.il  NTARG-1 
IF  (NTARG.GTJTUBES)  NT ARC^J TUBES 

ENDF 

F  (M8.TYPE.E0.1.0R.IATYPE.E0.1J  THEN 
C  MXL  OR  F-A-F  GUIDED  MUNITION  OR  ON 

KSHOT-NSHOTS 
DO  10  I.1.KSHOT 
F  (NTARG.LT.1)  RETURN 
PROB-RNOO 
F  (PKIT.GEPROB)  THEN 
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NKLL3-NKILLS.1 

NTARG-NTARG-1 

ENOIF 

NSH0TS-NSH0TS-1 
10  CONTINUE 
EN Of 

IE JMTYPE^QJ)  THEN 

C  UNGUiOtb  MUNITION  OR  SUBMUNIRONS 

C  APPLY  FRACTIONAL  COVERAGE  TO  NUMBER  OF  TARGETS  IN  PATTERN  AREA 
NK*XS-NNT(PKITTIEAL(NTARG)) 

ENOIF 

C  WRITE  (*.T  NKILLS* 

C  WRITE  ('.1  NX  ILLS 

RETURN 

END 


SUBROUTINE  FCEST  (KSlOE.NUUA.KASYS,ITYPE.NUMRJTARG.lAFtEA) 

ESTIMATES  FRACTIONAL  COVERAGE  OF  AREA  TARGETS  WHEN  SELECTING 
AN  ARTAXERV  MISSION  WHICH  USES  ht  OR  dptan  MUNITIONS 

COMMQNMOVEAXYA(20a2)AXYA(200l2).IBSA(a0Oj),RSA<200j). 

•  i  mu  L2M.L3MJ  1RM 

^MMOMFORCEm^^^^^OO||l^rr(2a))J1UNIT(200). 


A  IBSY3<200i).«SYS<200AL1H 

COMMONIARTY0AT/NBFARRFA.BANAME<10).RANAME(10).NAMB(10).NAMR(1 

•  NAM  MO®  10.5). NAM  MOR<  10,51. IATYPB(10,5),IATYPRi  10.5) 

A  .IAFAF8(10.Sl.lAFAFRO0,5).IARNGB(10,5.5),iARNGR110,5,5), 

A  AHTPKB/20,10.5)>RTPKRrt0.10.5),IABTUBE(10).IARTU8E(10). 

A  lSCOOTB(10.4LISCOOTR!l0.4) 

CHARACTER**)  LIBF.L2FX3F.L1HF.L1BMX2MX3MX1RM 
CHARACTER'S  BFNAME.RFNAME.BANAME.RANAME 
CHARACTER*  16  BHER.RHIER.mER 
CHARACTER'S*  BUNITRUNIT 

PU3.141S0 


BLUE 


RED 


f  (KSIOE.EQ.1)  THEN 

NTUBES-SSYS(NUMA2) 

NSUBS-IAFINGB(KASYS,ITYPE,4) 

MC£P»IARNGB<KASY3.rrYPE,3) 

MRNG-IARNGB(KASYS.ITYPE,1) 

IF  (NSUBS.LE.0)  NSU83.1 

PAlAREA-REAL(IARNGB(KASYS.ITYPE.5)) 

)0UBXYA(NUMA.1)*10aa 

YA-BXYAMUMiL1)*1000. 

XT-RXYMJTARG.1)*1000. 

VT-RXYA(JTARGL2S*1000. 

JSYS-IRSYS(JTARG.1J 

PKRAO-ARTPKB<JSYSJ(ASYS.ITYPE) 

ELSE 

NTUBES-IRSYSTNUMAJ) 

NSUBS-lARNGfliKASYS.ITYPE.4) 

MCEP.  lARNGRfKASYS,  1TYPE.3) 
MRNGUIARNGR(KASYS.ITYPE.1) 

IF  (NSUBS.LE.0)  NSUBS-1 
PATAREA-REaL(IARNGR(KA3YS.ITYPE.5)) 
XA-RXYA/NUMA.1)*100a 
YA-RXYA(NUMA.lJ*1000. 
XT-BXYA(JTARG.1)*1000. 
YT.BXYA(JTAHGi)'100a 
JSYS.IBSYS<JTARG.1I 
PKRAO-ARTPKR<JSYSJ(ASYS.ITYPE) 
ENOIF 


RANGE-((XT-XA)"a*(YT-YA)"2)**.5 

CEP-RANG&REAL(MRNG)*REAL<MCEP) 

BEATAREA-REALOAREA) 

IF  (BEATAREA.LTJ>ATAREA)  BEAT AREA-PAT AREA 
RAOIUS-(BEATAREA/PII**.5 
IF  (RADJUS.LT.CEP)  THEN 
RAOIUS-CEP 

BEATAREA-PI*RAD(JS*RAOIUS 

ENOIF 

NTR-0 

FINO  ALL  RED  ANO  BLUE  TARGETS  IN  BASKET  AREA 
DO  310  IT.  1. NR 

IFJIRSYS(IT,2VLE.0)  GO  TO  310 
NT-IRSYSOTjZ) 

IF  (NT.GT.l)  THEN 

JASYS-IRSYS(IT,1>-10 

OTUBES-REALJIAHTUBEUASYS)) 

NSHOTS-NUMR*NTUSEST4SUBS 

NKILLS-O 

CALL  COUNTERS  (NKLLS.NT.DTUaES.RAOLIS.NS HOTS. 1  4.0,2) 

NT-NKLLS 

ENOIF 

XR-RXYA(IT.1)'1000. 


YR-RXYA(IT,2)*1000. 

R-<(XR-XT)“2*0rR-YT)-2rS 
F  IRXE.RAOIUS)  THEN 

C  THIS  REO  VEHICLE  CAN  BE  TARGETED 

NTR.NTR.TNT 
ENOIF 

310  CONTINUE 
NTB-Q 

00  311  IT.1>4a 

FJI8SYS(IT,2).LE.O)  GO  TO  311 
NT.iaSYS(lfS) 

C  WRITE  (*.*)  •BLUE* 

c  write  r.i  rr 

f  (NT.GT.l)  THEN 

jASYS-iBSYS(rr.i>io 

DTUBES-REAUIABTUBEIJASYSj) 

nshots-numr-ntubesHjsubs 

WRITE  (*.*)  -NSHOTS,  OTUBES.  JASYS* 

WRITE  (*.1  NSHOTS.OTUBESJASYS 

NKILLS-O 

CALL  COUNTERS  (NKILLSNT.DTUBES.RADLIS.NSHOTS.1 .0.0.2) 
NT-NKLLS 

WRITE  nWlLJ 
WRITE  r.T  NT 

ENOIF 

XR-BXYA(IT.1)‘1000. 

YR-BXVA(IT.2)*1000. 

R-t(XR-XT)“aHYR.YT)-2)“S 

WRITE  (*.*)  X  Y  R  RADIUS’ 

WRITE  I*.*)  XR.YRR  .RADIUS 

IF  (R.LE. RADIUS)  THEN 

C  WRITE  (*.*)  ’YES* 

C  THIS  BLUE  VEHICLE  CAN  BE  TARGETED 

NTB-NTB.TNT 
ENOIF 

311  CONTINUE 

C  FIND  SHOT  DENSITY  IN  BEATEN  AREA 
NSHOTSJ*UMR*NTUBES*NSUBS 


C 

C 


C 

c 


IF  (BEATAREA.LE0.0I  GO  TO  400 
SDfcNS-R  EAL(NSHOTSyBEAT  AREA 

PKAREA-PI*PKRAD*PKRAO 

EXVAL-PKAREA'SOENS 

PKIT.I-EXP(-EXVAL) 

FC-PKITMOO. 


WRITE  (*.*)  ESTIMATED  FRACTIONAL  COVERAGE* 

WRITF  f  .V8ASE0  ON  BEATEN  AREA* 

/F.EQ.1)  THEN 

R.T-  *)  *»  BLUE  TARGETS.  •  REO  TARGETS.  FC  %  ON  REO 


..at 


.*)  *#  BLUE  TARGETS. «  RED  TARGETS,  F.C  %  ON  BLUE 


WRIlfc  (*.*)  NTB.NTR.FC 
WRITE  (*.*) 


400  CONTINUE 
RETURN 
END 


SUBROUTINE  PTEST  (KSIDE.NUMAJUSYS.ITYPE.NUMRJTARQ.IAREA) 

ESTIMATES  POINT  TARGET  MUNITION  EFFECTIVENESS  WHEN  SELECTING 
AN  ARTILLERY  MISSION  WHICH  USES  nvM  OR  1*4  MUNITIONS 

COMMONIMOVE/BXYA(200.2).RXYA(200l2).BSA(a00.2).nSA<Z00.2). 

6  LlBM  L2M  L3M  L1RM 

COM  MONFORC  E/SHIER  (200). RHIER(200)5l>lfT(200). RUN IT(200). 

A  IBSYS(200^).IRSYS(2002lX1BFX2FX3FX1R(O*B.NR 

COM  !*!9.  ^LA?  yVOAT /NBFANRF  ASANAM  E|  1 0)  .RANAME) 1 9}  ■  HAM  &< 1  °l  ■  NAM  R  ( 1  °) 


10.5).IATYPR(l6.5^ 


l,tARNGR(1ft5,S 
- ITUBEd 


t  X4AMMOB(10.5).NAMMOR(10.5).IATYPB 

A  , IAF  AF8(  10, 5),  1AFAFR)  10,5),  IARNG8(10.  _  _ 

A  ARTPKB(20,10.5).ARTPKR(zO,10,5),IABTUB£(10),IARYuBE(10). 
A  ISCOOTB(10.4),ISCOOTR<10» 

CHARACTER**)  L1BF.L2FX3FX1RFX1BMX2MX3MX1RM 
CHARACTERS  BFNAME.RFNAME.BANAMEJTANAME 
CHARACTER*16  BHER.RHIERHIER 
CHARACTERS*  BUNITRUNIT 

PI-3.14150 

f  ^KSIDE.EO.1)  THEN 
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OOOI 


1 


RED 


NTUSESJBSV8MUMAJ) 

NSUBS-IAflNG8<KA8YSJTYPe.4) 

uccp>MnNoeocMY8.ilrvpc3) 

MfiNa-IARNGJKKASYS.ITYPETl) 

FMSLSSlEJ|NSUB^t 
PAT*nEA^EALflMNQB<KASYS.rrYPE.S)) 

JWpSXYWNUMA  II  1000 
YA4XYAM*U.lj'1000. 

XT-RXYMJTARQ,  11*1000. 

YT-RXY2jTARGij*1000. 

J8Y3-IRSYS(JTARG,1) 

MILTYPE-IArAFB(KASYS,ITYP£) 

IATYP£.IATYP8(KASYS,ITYPE) 

else 

NTU8ES.«3YS(NUMA2) 

NSUBS-IARNGR<KASYS,ITYPE.4) 

MCEP-IARNGR(KASYS,ITYPE,3) 

MRNCWIARNGR(KASYS.ITYPE.1) 

IF  (NSUBSLEO)  NSU8S.1 
PATAREA-REaL(IARNGR(KASY3.ITYPE.S)) 

)0URXYA(NUMA.1)‘100a 
YA.RXYA  NUMAI'IOOO 
XT.BXYA  JTARd.1)*100a 
YT-BXYA  JTARGii*100a 
JSY8-IBSYS(JTARG.1) 

MATYPE-IAFAFRIKASYSTTYPE) 

IATYPE-IATYPR(KASYS.ITYPE) 

ENOF 

RANGE.<fXT-XA)**2»(YT-YA)"2)**.4 

CEP.RANQE/SEjMJURNQ)'kEAL(MCEP) 

BEATAREA^TEALOAREA) 

Sar  .PAT  AREA)  BEATAREA-PATAREA 
TAREAfPIT.4 
.CEP)  THEN 

BEATAREA-PrRAOUS'RADUS 

ENOF 

F  (KSIOE.EO.1)  THEN 

C  BLUE 

F  (MLTYPE.EQ.1)  THEN 
IATYPE-0 

EVALUATE  MAN-IN-THE-LOOP  TERMINAL  GUIDANCE  ON  DESIGNATED 
TARGET  LIST 

LISTED  TARGETS  MUST  BE  IN  THE  BASKET  AREA  PLUS  CEP  ERROR 
C  F  THESE  TARGETS  ARE  NO  LONGER  THERE.  ANY  SHORTFALL  WILL 
C  BE  MADE  UP  BY  FINOMG  ANY  OTHER  ENEMY  TARGETS  IN  AREA. 

NSHOT5>NUMR‘NTUBES*NSUBS 

NTTWO 

C  FIND  ALL  RED  TARGETS  M  BASKET  AREA 
DO  110IT-1XR 

F  (IRSYSIIT  -2J.LE.0)  GO  TO  110 

XR.RXYA(IT.1)*100a 

YR-RXYA«T.2)*1000. 

R4(XR.XT)~2«0rR.YT)~2)“S 
FjR.LE.RADIU3l  THEN 
C  THIS  REO  VEHICLE  CAN  BE  TARGETED 

NA-1 

JSYS-IRSYSirT.I) 

PKIT.ARTPKB(JSYS,ICASYS.ITYPE) 

F  (JSYS.GT.1Co  THEN 
C  COUNTER-BATTERY  SITUATION 
JTUBES-IRSVS((T.2) 

JASYS-JSYS-10 

DTUBES-REALMARTUflElJASYS)) 

NSHOTaNSHOTS 

CALL  COUNTERS  (NKIU.S.JTUBES.DTU8ES. RADIUS. NSMOT.1 .0. 
AMILTYPE.IATYPE) 

NA-NKLLS 

ENOF 

NTR-NTR»1*NA 

ENOF 

110  CONTINUE 

FC-PKIT100. 

WRITE  (*,*)  ESTIMATED  NUMBER  OF  TARGETS  IN  PATTERN  AREA' 
WRITE  M  '•  RED  TGT.  %  KILLS 
WRITE  M  NTREC 

ENOF 


IF  flATYPE.EO.1)  THEN 
DATE  r - - 


EVALUATE  POINT  TARGET  MUNITION  Si  SUBMUNITIONS 
THESE  ARE  FIRE-ANOFORGET  TERMINALLY  GUIDED 
PROJECTILES/SUBMUNITIONS  SUCH  AS  SAOARM  OR  GUIDED  MORTAR 
ROUNDS 

FIND  ALL  VEHICLES  M  THE  BASKET  AREA  AND  EVALUATE  THEIR 

PROBASLIT1ES  OF  BEING  TARGETED  AND  KILLED 

REMEMBER  ...  UNLESS  THERE  IS  FF,  WHICH  THERE  IS  NT,  FRIENDLY 

VEHICLES  MAY  ALSO  BE  TARGETED,  SO  FIND  ALL  POTENTIAL  VEHICLES 

IN  BASKED  AREA.  INCLUDING  KILLED  VEHICLES.  SINCE  HOW  THE 

HECK  WILL  A  MUNITION  LIKE  THIS  KNOW  THE  DIFFERENCE  7 

THE  FINER  POINTS  OF  THESE  ISSUES  WILL  HAVE  TO  BE  MODELED  LATER. 

FOR  NOW,  THESE  FAF  GUIDED  PROJECTILES  ARE  BASICALLY  DUMB. 


NTR-0 

FIND  ALL  REO  AND  BLUE  TARGETS  M  BASKET  AREA,  EVEN  OEAO  ONES 
DO  210  IT-1  HR 
XRaRXYAI  IT,  11*1000. 

YRJWYjjrrihooo. 

R-((XR.XT)“2»(YR-YT)~2)**4 
F  (R.LE.RADIUS)  THEN 
THIS  REO  VEHICLE  CAN  BE  TARGETED 
N/W1 

JSVS-IRSYSIIT.I) 

PKIT.ARTPKB(JSYS.KASYS.ITYPE) 

F  (JSYS.GT.Kfl  THEN 

COUNTER-BATTERY  SITUATION 
JTUBES-IRSYS(IT  .2) 

JASYS-JSYS-10 

DTU8ES.REAL(IAR7UBE(JASYS» 

NKILLS-0 

NSHOT.NSUBS 

CAU  COUNTERS  (NKILSJTL®ES.DTU8£S,RADAI&NSHOT,1.0. 
AMILTYPE.IATYPE) 

NA-NKLLS 

ENOF 

NTFUNTR.1-NA 

ENOF 

CONTINUE 

NTB-0 

□0211  rr-txa 

XR-BXYA(IT.1)-1000. 

I**2)**S 


210 


;  CAN  BE  TARGE TEO 

NA-1 

JSYS-BSYSIIT.I) 

F  (JSYS.GT.10)  THEN 
C  COUNTER-BATTERY  SITUATION 
JTUBES-IBSYS(ITJ) 

JASYS-JSYS-10 

DTUBES-REAMIASTUBE(JASYS)) 

NKILLS-0 

NSHOT.NSUBS 

CALL  COUNTERS  (NKLLSJTUBESJJTUBESJUCMJSJJSHOT.U). 
AMILTYPE.IATYPE) 

NA-NKLLS 

ENOF 

NTB-NTB»1*NA 

ENOF 

211  CONTINUE 

NTOTAL-NTTUNTB 

F  (NTOTALLE.O)  QO  TO  300 

C  FIND  EXPECTED  NUMBER  OF  SHOTS  PER  AVAILABLE  TARGET 
NSHOTS-NUMR*NTU8ES*NSUBS 
SEACH-REAL(NSHOTS)flEAL(NTOTAL) 

C  BASED  ON  POISSON'S  DISTRIBUTION.  FIND  THE  PROBABILITY 
C  THAT  A  VEHICLE  WILL  BE  WITHIN  RANGE  OF  ONE  SUBMUNITION 
PI-I.-EXP(-SEACH) 

PM.-0.-PKIT)**NSUBS 

300  CONTINUE 

FC-P1*P2*10Q. 

WRITE  (*,*)  -ESTIMATED  NUMBER  OF  TARGETS  M  PATTERN  AREA- 
WRITE  (*.1  '#  BLUE  TGT.  *  RED  TGT.  %  KILLS  RED 
1  (*.*)  NTB.N - 


WRITE 


LNTB.FC 


ENDF 

ELSE 


RED 


C 

C 

C 

C 

C 


F  (MLTYPE.EQ.1)  THEN 
IATYPE-0 


EVALUATE  MAN-IN-THE-LOOP  TERMINAL  GUIDANCE  ON  DESIGNATED 
TARGET  LIST 

LISTED  TARGETS  MUST  BE  IN  THE  BASKET  AREA  PLUS  CEP  ERROR 
F  THESE  TARGETS  ARE  NO  LONGER  THERE.  ANY  SHORTFALL  WILL 
BE  MADE  UP  BY  FINDING  ANY  OTHER  ENEMY  TARGETS  IN  AREA. 

NSH0TS-NUMR*NTUBES*NSU8S 

NTB-0 

FIND  ALL  BLUE  TARGETS  M  BASKET  AREA 
DO  410  IT.1.NB 

IF  (IBSYS(IT^).LE.O)  GO  TO  410 
XB-8XYA0T,  11*1000. 

yb-bxya!it^)'iooo. 

R-«XB-Xfl**2»(Y8-yT)"2>”-S 
F  (R.LE.RADIUS)  THEN 
THIS  BLUE  VEHICLE  CAN  BE  TARGETED 
NA-1 

JSYS-IBSYSOT.I) 

PKIT.ARTPKRUSYS.KASYS.ITYPE) 

F  (JSYS.GT.10)  THEN 

COUNTER-BATTERY  SITUATION 
JTUBES-IBSYS(IT^1 
JASYS-JSYS-10 


73 


CAU.  COUNTERS  (NKUSJTUSEMTUSESJWJJAWBHOT.t  .0. 

HA-MULLS 

ENOIF 

nt£nts*i'na 

enoif 

410  CONTMUC 

re-PKirtoa 

WRITE  r.l  ESTIMATED  NUMBER  Of  TARGETS  IN  PATTERN  AREA' 
WRITE  M  T  BLUE  TGT.  %  KILLS' 

WRITE  M  N1VC 


IF  (jATYPE  Ea.lJ  THEN 

e>#m.JATH  point  target  munition  s/submun mows 
THESE  ARE  FME-ANOFORGET  TERMINALLY  GUIOED 
PROJECTILESlSUBMUNITIONS  SUCH  AS  SAOARM  OR  GUIOEO  MORTAR 
ROUNDS 

FIND  MX  VEHICLES  IN  THE  BASKET  AREA  ANO  EVALUATE  THEIR 
PROBABILITIES  OF  BEING  TARGETED  AND  KILLED 
REMEMBER  ...  UNLESS  THERE  IS  IFF.  WHICH  THERE  ISVT,  FRIENDLY 
VEHICLES  MAY  ALSO  BE  TARGETED,  SO  FIND  ALL  POTENTIAL  VEHICLES 
IN  BASKED  AREA.  INCLUDING  KILLED  VEHICLES.  SINCE  HOW  THE 
HECK  WILL  A  MUNITION  LIKE  THIS  KNOW  THE  DIFFERENCE  7 
THE  FINER  POINTS  OF  THESE  ISSUES  WILL  HAVE  TO  BE  MODELED  LATER. 
FOR  NOW.  THESE  FAF  GUIOEO  PROJECTILES  ARE  BASICALLY  OUUB. 

NTTUO 

FINO  MX  RED  AND  BLUE  TARGETS  IN  BASKET  AREA.  EVEN  DEAD  ONES 
DO  510  IT.  I  HR 
XR.RXYAI  IT, 11*1000. 

YR.RXYMIT.2h 000. 


RH(XR-XTr*2-HYR-YT)**2)**.5 
FJRXE  .RADIUS)  THEN 
THIS  RED  VEHICLE  CAN  BE  TARGET 
NA»1 

jSYs-HSYSirr.i) 

F  (JSYS.GT.10)  THEN 
COUNTER-BATTERY  SITUATION 


C  COUNTER-BATTERY  SITUATION 
JTUBES.lRSYS<rr,2) 

JASYS*JSYS-10 

DTUBES-REAL(IARTUBE(JASYS)) 

NKILLSM 

NSHOT-NSUBS*NUMR*NTUBES 

CAa  COUNTERS  (NKUXSJTUBESXlTUBES.RADtUS.NSHOT.I.O. 
tMILTYPE.IATYPE) 

NA.NKLLS 

ENOIF 

NTTUNTR>1*NA 
ENOIF 
510  CONTINUE 

NTBcK) 

DO  511  IT.1NB 
xfuaxYAirr.yiooo. 

YR^XYAIITihoOO. 


RHIXR-XT)**2HYR-YT)**2J**j5 
F{R.LE.RADIUS)  then 
BLUE  VEHICLE  CAN  BE  TARGE 


C  THIS  BLUE  VEHICLE  CAN  BE  TARGETED 
NA»1 

JSYS-IBSYS(IT.1) 

PKIT-ARTPKH<JSY8.KASYS,ITYPE) 

IF  (JSYS.GT.10^  THEN 
C  COUNTER-BATTERY  SITUATION 
JTUBES-IBSYS(IT,2) 

JASYSWSYS-10 

DTU8ES-REAL(IA8TU8E(JASYS)) 

NKILLS^J 

NSH0T.NSU8S*NUMR*NTUBE3 

CALL  COUNTERS  (NKILLSJTUBES,DTUBES.RADIUS,NSHOT,1.0, 
AMILTYPE.IATYPE) 

NA-NKLLS 

ENOIF 

NTB-NTB»1*NA 

ENDIF 

511  CONTINUE 

NTOTAL-NTR*NTB 

IF  (NTOTALXE.0)  GO  TO  000 

C  FINO  EXPECTED  NUMBER  OF  SHOTS  PER  AVAILABLE  TARGET 
NSHOTSaNUMR*NTUB£S*NSUBS 
SEACFHREAL(NSH0TSVREAL(NT0TAL) 

C  BASED  ON  POISSON'S  DISTRIBUTION.  FIND  THE  PROBABXITY 

C  THAT  A  VEHICLE  WILL  BE  WITHIN  RANGE  OF  AT  LEAST  ONE  SUBMUNITION 
Pt-t.-EXPl-SEACH) 

C  PROBABILITY  OF  BEING  KIXED  F  W  RANGE  OF  MX  SUBMUNITONS 
C  NONE  MISSILE 

PB*1.-(1.-PKIT)**NSUBS 

000  CONTINUE 

FW>i*prioa 

WRITE  (*.*)  •ESTIMATED  NUMBER  OF  TARGETS  IN  PATTERN  AREA' 
WRITE  f.j '»  RED  TGT.  •  BLUE  TGT.  %  KILLS  BLUE- 
WRITE  <*.*)  NTRXTBFC 


ENOIF 

ENOIF 

RETURN 

END 
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